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WHY GAMES AT ALL? 

Games encourage imaginative and constructive responses. The results of games are unimportant — 
we take risks, tolerate uncertainty, and proceed with less-than-complete understandings. Our 
abilities to react creatively to new and unexpected situations are constantly changing. We develop 
our decision-making capabilities and problem-solving skills. Games are fun! 

WHY COMPUTER GAMES? 

A computer waits patiently while we experiment with different lines of thought. It's available 
to play any game we want, as many times as we'd like. Games are fun! 

WHY PLAY THESE GAMES WITHOUT A COMPUTER? 

Why not! Most of these games can be played without a computer. 

When we play these games without a computer, one of us is the computer. The "computer" has 
to be "programmed" for each game, it processes information and always responds logically. Being 
the computer enables us to see the game from another perspective and better understand its 
structure. Modifying the games and trying new variations is easy when one of us is the computer, 
how to actually write a computer program for the games is clearer. Games are fun! 

WHY COMPUTER GAMES? - continued 

A simulation isa model of a real-life situation. The computer does the complicated bookkeeping - 
you create the initial conditions, manipulate the parameters, and analyze the results. The effects 
of each parameter can be isolated, the simulation can be repeated as often as you want. Games 
are fun! 

WHY GAMES AT ALL? - continued 

Competition is one relationship among players. We can transform a competitive two-player game 
into a cooperative five-player game, instead of always playing one side, a person alternates playing 
each side throughout the game. 

Games can introduce new ideas. Games are open-ended, multi-purposed, and can be selected to 
suit our needs. Games are fun! 
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PREFACE 


This is an interesting and timely book. At all levels it represents a melding of diverse, even 
polarized, elements. At once it is a potpourri of games, an activity dating back to the roots 
of man, and a catalog of creative ways to use man's most modern and sophisticated tool, the 
computer. The contents range from old number games like NIM, that originated in ancient 
China, to STTR1, a simulation adapted from a modern science fiction television series. The 
computer version of NIM (and many of the other games) is merely an adaptation of an age- 
old diversion; these games may be enjoyed equally well without the use of a computer. 

Games such as STTR1, on the other hand, would never have been possible without the 
speed and computational abilities of modern computers. (In fact, STTR1 not only requires 
a computer to be played; it includes a computer as an integral part of the game.) 

The educational use of both games and computers has been the subject of some controversy 
in recent years. Games traditionally have been regarded merely as pastimes or diversions; 
any learning that occurred was considered to be incidental. Computers were hailed as an 
efficient way to automate instruction with pre-programmed texts — the teaching machine. 
Today, however, educators are discovering that game playing is an important learning process. 
Likewise, modern interactive time-shared computers are now being looked upon as an impor- 
tant resource — not unlike a library — to be used in the capacity of playmate, tool, and 
teacher. This book, then, provides a starting point for exploring the uses of computers in this 
context. Moreover, the increasing availability of computers and/or computer terminals to 
the public in schools, science/technology museums, and community centers emphasizes the 
need for such an introduction. 

The publishing of this book represents a combined effort. The computer games and simula- 
tions were contributed by a variety of people, from mathematicians to businessmen, from 
students to professors, and from computer phreaks to homemakers. Indeed, the book was 
made possible through the joint cooperation of the People's Computer Company, a store- 
front, non-profit, educational group (that publishes a funky newspaper) and Hewlett-Packard 
Company, a more traditional company (that manufactures time-sharing computers, among 
other things). This, in itself, is significant. 

In short, PCC’s First Book of Computer Games is destined to become one of those books 
It is conspicuous - one of those books that is too big to fit on the shelf, so you find it lying 
about on a table; it is eclectic — one of those new, soft-cover, newsprint catalogs that is 
crammed to the margins with interesting tidbits and graphics; it is a curiosity - one of those 
books you feel compelled to pick up, just to see what is inside; and most important it is an 
educational resource - one of those books that will help you find, obtain, or "get into" new 
materials for the enrichment of learning. 


December, 1974 


Bob Kahn 

Director of Computer Education 
Lawrence Hall of Science 
University of California, Berkeley 
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WELCOME to the Games Book — 

Come captain a starship, hunt the Wumpus (but watch out for the bottomless pits), beat the Taxman, explore tho Caves, piny hide 
n seek with the Hurkle, draw a Mandala, Trap my number, govern the ancient kingdom of Sunieria — 

A computer and your imagination can take you into unknown universes, inhabited by seemingly intelligent beings where all sorts of 
exotic obstacles confront you. You can't lose! Catastrophes are opportunities for insights into these worlds. You and the computer 
cooperate in the exploration of unknown realms. 

Think of this book as a newspaper - open it anvwhere and start reading. If you're a programming nut or a novice, a games aficionado 
or a dabbler, if you're a teacher or a student, an artist, a mathematician, or a ... , whatever your tastes and prejudices, you'll find 
something here to suit your fancy. 

Herein reside some of the computer games that we have found fun and challenging. You might get excited enough to modify some 
of them or even write your own. 

Kick off your shoes, find a comfortable place to sit or lie down, and dig in! 


Do you have a passion for 


MEETING THE COMPUTER 

Start with the games in Chapter 1 
(the first four are simple number 
guessing games). 


ANALYZING A FAMILY OF GAMES 

One concept is developed throughout the 
"Nimlike" games. What you learn in one 
game leads you to the next. 


PROGRAMMING 

Play some of the simpler games. Then 
look at the listings in the back. You'll 
be able to read and understand the 
programs, even if you don't know 
much BASIC. 

For the "hot-dogs" try modifying a 
game or designing a new one. Experi- 
ment with alternate models in some of 
the simulations or pattern-generators. 


HEAVY DUTY GAMES PEOPLE 

If your group has a few hours a 
week for the next few months, 
try Policy or Trader. 


SPACE -THE FINAL FRONTIER 

Land your own — try Crash, then Lunar. 
Intergallactic war - try STTR 1. 
Intergallactic capitalism — try Trader. 


SOCIAL SCIENCE SIMULATIONS 
From mercantilism to pollution. 


ICE CREAM 

Try Bud's in San Francisco or 
Aunt Emma's in Palo Alto. 
(We also recommend Bott's in 
Berkeley.) 


MATH CONCEPTS 

X-Y coordinates — try Hurkle. 
Polar coordinates — try Mandala. 


PATTERNS 

Designs, like Dangle or Mandala. 
Personalized, like Sunsign or Biosin. 


PUZZLES & BRAIN TEASERS 
Start with Bagels, Teaser, or Reverse. 


Who wrote this book? 
PCC 


People's Computer Center, a division of People's Computer 
Company, is a non-profit community computer workshop, 
developing and experimenting with games and recreational 
uses of computers. We believe that computers are for peo- 
ple to "play" with, whether in exploring games and simula- 
tions or in writing computer programs. 

PCC is a large and pleasant environment containing computers, 
terminals, a plotter, hand calculators, mathematical diversions, 
puzzles, and board games. The center is available to people of 
all ages. Groups can schedule a one-time visit or a series of 
classes. Individuals can come to Games' Night, rent computer 
time, or join afternoon or evening classes. 


Everyone who worked on this book volunteered the time. The 
profits will be used to purchase computer hardware. We have 
two major objectives: 

■ To provide the capability to support remote terminals in the 
community (libraries, the community center, hospitals, homes 
for the aged, the county jail, "random" locations in town) 
where people will be able to play games, use a community 
information network, and work on independent projects. 

■ To expand our activities at the Center to include interactive 
graphics, the development of computer languages, music, 
and whatever else we can come up with. 

Write to us if you have any suggestions or are interested in 
finding out more about us. Our address is: 

People's Computer Center 
1919 Menalto Avenue 
Menlo Park, California 94025 


Our phone number is (415) 328-4444 
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WE WROTE THE PROGRAMS 


People's Computer Center 
1919 Mena I to Avenue 
Menlo Park. Ca 94025 


Many of these games are part of our folklore - 
we have no idea how many people contributed 
their time and creativity to them. 


We have undoubtedly left out dozens of credits. 
If you helped in the development of any of the 
games, please send your name end we'll include 
it m the next printing (we can expand to as 
many pages m necessary). 
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PUTTING THESE GAMES ON YOUR COMPUTER 

All the games run in Hewlett-Packard 2000F BASIC 
ou can type in the games you want if you're care- 
ul and pat.ent - many are listed in the back (we've 

in the* book 7""* «°" 9 0neS, ° r ' 866 the ,8St sectl °" 
ok for information on ordering magnetic 
tape or individual paper tapes. 

If your computer speaks a different dialect of BASIC - 
Many of the programs should "almost" work as is 
Strings and disk references (if any) may require modi- 
tications. (Check a copy of the HP 2000F user's 
manual.) 

To reduce the size of the programs, you can remove 
HEM s and the game’s rules (have separate instruction; 

liable or how about having our book handy?) 
Happy crunching if your BASIC allows multiple 
statements per line. 


PLAYING THESE GAMES WITHOUT A COMPUTER 

A ♦ before a game means that it can be played without 
a computer. Suggestions for “how" appear in the 
chapter introductions and game descriptions. 
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Number Guessing Games 
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♦ 

Number 

A simple number-guessing game. 

4 

♦ 

Abase 

Guess my number ... in base 2 or 5 or 8 or ... 

5 

♦ 

Trap 

Trap my number. Then make the trap smaller and smaller and . . . 

6 

♦ 

Stars 

Guess the cosmic number. Win some stars for yourself. 

8 

♦ 

Clocks 

Read the metric code words and guess what time the computer has 
in mind. 

10 

♦ 

Bagels 

The Pico. Fermi, Bagels game — guess a three-digit number. 

12 

• 

Quadgt 

Bagels too easy? Try Quadgt. 

13 

♦ 

Word 

Button 

Games 

Button, button, who’s got the button? 

16 

4 

Letter 

There are 26 letters in the alphabet, but only 1 of them is it. 

17 

4 

A bagel 

Like Bagels, but here you try to guess the computer's 3-letter word. 

18 

4 

Hangmn 

The game of Hangman - guess the secret word, letter by letter. 

20 

4 

Madlib 

Complete a zany story by filling in the blanks — before you see the 
story. 

22 

♦ Word 

"Nlmlike" Games 

A scrambled word appears and you must unscramble it before your 
time runs out. 

24 

4 

23Mtch 

Starting with 23 matches, you and the computer take turns removing 
them. 

26 

4 

Batnum 

Set up your own game, then play against the computer. 

27 

4 

Nim 

You and the computer take stars from piles. 

30 

4 

Chomp 

The board is a big cookie, but one square is poison. Any number can 
chomp. 

32 

4 

Zot 

Use you zotter to your best advantage. 


Hide 

& Seek in 2-Dimensional Grids 

34 

4 

Hurkle 

The Hurkle is a happy beast — find him if you can. 

35 

4 

Mugwmp 

Circles crossing circles will tell you where the Mugwump hides. 

36 

♦ Snark 

Pattern Games 

Catch the Snark with a well-placed circle. 

38 


Dangle 

Use the computer to make a dangling string of stars. For the very 
young. 

39 


Sunsgn 

Your name and sunsign are used to create a unique artistic pattern. 

40 


Biosin 

Charts your life's physical, sensitive, and cognitive cycles. 

42 


Mandal 

Create your own Mandalas by choosing design parameters. 

44 


Life 

John Conway's cellular board game. 

47 

Amaze 

Board Games 

Creates a random maze. You choose how big. 

50 

4 

Qubic5 

3-D tic-tac-toe. Choose a strategy level for the computer, then try to 
win. 

52 

4 

Gomoku 

The traditional Japanese game of five-in-a-row. Only here, you play 
the computer. 

54 

4 

Teaser 

Try to fill the 3-by-3 board with Vs everywhere except the center. 
Good luck! 

56 

4 

Rover 

Guide Rover Robot across a grid. 


Welcome to the Caves 


60 

63 

66 


72 

73 
76 

78 

81 

85 

88 


94 

98 


104 

107 

108 

111 

112 

115 

154 


♦ Caves 1 Find your way out of the Caves. Three levels of difficulty. 

♦ Wurnpus Hunt the Wumpus in its world of caves, superbats, and bottomless pits. 

♦ Caves2 Like Cavesl, but you set up the caves for a friend to solve. 

Business & Social Science Simulations 

Hamrbi You are Hamurabi, the governor of ancient Sumeria. 

King If you survive your eight-year term, we congratulate you. 

CivH2 A two-team simulation which recreates 14 Civil War battles. You 

can change the course of history. 

Market Two companies compete in a business simulation. 

Stock Play the Stock Market. 

Policy Six teams interact trying to manage the U.S. economy. 

Point A real-life simulation that permits you to create a water pollution 

situation and try to clean it up. 

Science Fiction Games 

Trader Star Trader is an interstellar game of mercantile skill. Can be played 

lightly, or with passion. 

Sttr1 You captain the starship Enterprise in instellar battle. 

Last Chapter 

Land a space module on the planet of your choice. 

Try to land a spaceship on the moon. 

Unscramble a list of numbers with your ingenuity and lots of 
patience. 

Two players build bridges until one player cannot move. 

Try to beat the Taxman. Factors are the keys to this one. 

Order Information 


♦ Crash 
Lunar 

♦ Revers 

♦ Zeros 

♦ Taxman 

Selected Listings 



Humber is an excellent gam« for anyona to start with. Tho rules amt responses ere ilmpla; an analysis of the gam* is straight f^warO 

With beginning learners it is u game tint, then n practice lit number recognition and sac|uanaift(| Hagln with the riumb*M 1 W 
. * P V ° u numbar 8 h n « - on paper, the floor, or a blackboard. Or try laying out Individual markers (mirnlrared *#f > ' M,u - 
whether J * ^ ^ V ° l ‘ ar ° * C0m Puter. "I am thinking of a number from 1 to 10. Guess a number end point to It I'll V M< 
the V ° U 9U0mcl mv num ber, or whether your guess is too small or too big.” At this level you are most interested in the practice 
iHunbfM m ,dentifv ’ nfl l ^ e n umber« and in responding to the dues “too »mnH“ and "too big" C*|>e<;t the player* to wander over the 
m r ,ne * fl u ***lng without building on previous information. As their abilities develop, lengthen the number line 

Take turns being the computer. The “computer" compares the secret number with each guess and always tells the truth. 

The players will begin to notice the boundaries creuted by previous guasies. Try to see how the set of possible right Humbert changes 
with each clue. Help them be aware of the changing possibility sot try erasing the numbers that have been eliminated. Iry marking Hie 
number line, or in some other way keeping track of the Information. 

Finally, encourage them to develop a strategy for guossing the secret number in the fewest possible tries. Number Is a partltlunlnu 
ffsme each clue “partitions" the numbers. Analyse each strategy in terms of the partitioning soheme It uses Then, try to determine 
me maximum number of guesses needed for any range of numbers 

Start slowly with everyone. Players will develop skill ot their own speeds. Beginning learners may naed a year or two before they ere 
ready for a more involved look ot the game. 

Talk about ways to generate the secret number - dice, numbers In a bat. spinners. 

.t/nru is \umbtr in am base (you pick the base). In Trap you guest t wo numbers, trying to sandwich the secret number \n Stan 
clues are related to how far your guess is from the secret number. Clocks Is like Stars and gives dues In metric units. Hands end 
Quadgt are substantially more difficult to play than Number . Try Button with people In the circle. 


NUMBER GUESSING GAMES 

Number 

Abase 

Trap 

Stars 

Clocks 

Bagels 

Quadgt 

Button 


A NUMBER GUESSING GAME 


1 



<^VOO B\Cr/ 

P TPV A SA^ALCCI 

^/v/uai6C*R. — 
what is you 



r 7 1 


d c o oo\ 






Ctoo SMALL / 

( T RY A L ARGCRy 

> rVUMOlR . 

( WHAT is YOv//e//fl/) 

cuess p JYfeo.y 


Vtdo 

Itry a smauc 5^ _ I 
|> H/uMBeR/- 
fWHAT is voorJ 
1 <>U6*S?\ ^ 



KR6 YOU RCAU-YJ 
>- SAtARr ? -< 

C<PR JUST uUC^Y ?. 



I 0 • 

I li 
120 

£•• 

210 

220 

230 

240 

300 

310 

320 

330 

400 

410 
420 
430 
440 
450 
4 40 
4 70 
480 
490 

500 

S10 

520 

530 

540 

999 

NUN 


S« ::; grriE SJK^lS 0 ^ ca -.25 

HEM ••♦ PKINT JJJ*JU 0 o"a N WMOLE H n“mSe/f3oM I TO 1*8 f 
PR InT -TH? T^ S UE5S Mr JWN • *J ^^UNBE* OH IF YOU*" 
M ^SSeSw"* too SHALL oh too BIG." 

8E M ... COMPUTE* -THINKS' OF A NUMBER - CALL IT A 
l|? X* I NT < l..♦HNOC. I I*' 

£«15J -ok* I HAVE A NUMBEK. START GUESSING." 

Kt „ ♦ HUMAN STARTS GUESSING 

ShInJ "VHAT IS YOU* GUESS" I 
INPUT g 

IF g«* THEN 510 

PH 1 NT *" TOO^SNALL . THY A LARGER NUMBER." 

“I2t - '?00 big. thy a smaller number." 
goto 410 

KEM ... HUMAN HAS GUESSED THE COMPUTER ’S NUMBER 
PRINT "YOU GUESSED IT!!! LET'S PLAY AGAIN." 

pkint — ^ 

GO TO 310 
END 



I WILL THINK OF A WHOLE NUMBEK FKOM 1 TO 1 80 • 

TKY VO GUESS MY NUMBEK. AFTEK EACH GUESS. I WILL 
TELL YOU IF YOU HAVE GUESSED MY NUMBEK OK IF YOUK 
GUESS IS TOO SMALL OK TOO BIG* 


OK. 


I HAVE A NUMBEK. STAKT GUESSING. 


WHAT IS YOUK GUESS? IB 

100 SMALL. TKY A LAKGEK NUMBEK . 

WHAT IS YOUK GUESS? 20 

TOO SMALL. IKY A LAKGEK NUMBEK . 

WHAT IS YOUK GUESS ? 30 

TOO SMALL- TKY A LAKGEK NUMBEK . 

WHAT IS YOUK GUESS? 40 

TOO SMALL. TKY A LAKGEK NUMBEK . 

WHAl IS YOUK GUESS? 50 

TOO SMALL. TKY A LAKGEK NUMBEK. 

WHAT IS YOUK GUESS?60 

TOO SMALL. TKY A LAKGEK NUMBEK. 

WHAI IS YOUK GUESS? 7k) 

TOO BIG. TKY A SMALLEK NUMBEK . 

WHAI IS YOUK GUESS? 69 

100 BIG. TKY A SMALLEK NUMBEK. 

WHAT IS YOUK GUESS768 

TOO BIG. TKY A SMALLEK NUMBEK . 


I played the game. Look at my 
guesses — can you discover 
my strategy ? There 
are better strategics 
Can you invent one?? 


There is a strategy that will let you 
at ways guess the number in at most 
7 guesses. Can you find it? 


WHAI IS YOUK GUESS? 6 7 

YOU GUESSED I T ! ! f LET'S PLAY AGAIN. 

OK. I HAVE A NUMBEK. STAKT GUESSING. 
WHAT IS YOUK GUESS? 


2 


I guessed the number in 10 guesses. 
Using this strategy, how many guesses 
would it have taken me if the numbei 
had been 66? If it had been 61 ? How 
about 91 ? 







go back for a new game 


i 


HOW DOES IT WORK? 


FOLLOW THE 




Start here 


100 HEM NUMBER *** A NUMBER GUESSING GAME **♦ 

i I • HEM *** COPYRIGHT PEOPLE’S COMPUTER COMPANY 
12ft HEM ♦** P.0. BOX 31ft# MENLO PARK CA 94025 

- , J 


200 REM +** PRINT INSTRUCTIONS ON HOW TO PLAY 

210 PRINT ” I WILL THINK OF A WHOLE NUMBER FROM 1 TO 100.” 

220 PRINT ”TRY TO GUESS MY NUMBER. AFTER EACH GUESS# I VILL” 
230 PRINT ”TELL YOU IF YOU HAVE GUESSED MY NUMBER OR IF YOUft” 
240 PRINT "GUESS IS TOO SMALL OR TOO BIG.” 


300 REM *** COMPUTER ’THINKS • OF A NUMBER - CALL IT X 
310 LET X» INT < 1 00*RNDC 0 > >♦ I 
320 PRINT 

330 PRINT ”0K# I HAVE A NUMBER. START GUESSING.” 


400 REM ♦** HUMAN STARTS GUESSING 
410 PRINT 

480 PRINT ”WHAT IS YOUR GUESS”! 
430 INPUT G 


computer checks guess CGD 
against its number CX3 


440 ir G-X THEN 510 


follow me if guess is 


follow me if guess 
is fX3t correct 


450 IF G>X THEN 480 


-1 

I 460 

I 4 70 



[ 480 

49 0 



500 
51 0 
520 
530 
540 


follow me if (0 
CD 


if guess was 
~ not right on 
~ not too big 


8 

0 )' 

ct 


r 


g 

to 


999 END 
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correct 







e-St S, S1 = A*C T, Tl 

! F K-0 THEN I 160 

S-S*l 

GOTO 1060 

*>U S,S J»M*t 10, 101 

^0T0 1 NO 

n'i l;u 

wa i • iooi ♦ 06» i oeoi, 1210, «.oo, 202, 144, in, 100 


4013 5 <'v*S’ , )+0*S') + 3 
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Pe~nf/g KAti- 


UoHY U-ARN BASES TW\S ulAV 
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MM Alt lili^^ , 

’ cf rrtKt n * n *Y CHJM'I*#*? 

& T«f »!/«“» or w ,..s ~ _ 


FFEimiT *.a5*s~ 

n-‘ 


0 M*\l ?£0 

4 ve&lM 4 

40 MP 


Y4»CrMfft 


70 
30 
90 
100 
1 10 
120 
130 
140 
160 
160 
170 
130 
190 
200 
£10 
£20 
230 
2«0 
250 
260 
270 
23 0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
330 
390 
400 
410 
420 
4 JO 
« 40 
460 
460 
470 
430 
490 
500 
510 
520 
530 
540 
550 
SoO 
57 0 
53 0 
59 0 
600 
610 
620 
630 
640 
650 
660 
670 
630 
690 
700 
710 
7 2C 
730 
740 
750 
760 
770 
730 
790 
300 
810 
820 
330 
340 
350 
360 
370 
830 
890 
900 
910 
920 
930 
940 
950 
9 60 
970 
930 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
103 0 


a;" to 


A VI 


** inT ' »i*g 

PR.7T -THIS 15 A ****** J5il i*AT *V--* T8- VlSH Ti " 

-*0-, tfu. th* co«?i-ter_«' a 1 ** n YO - = "~ r * 

' s r 

PR! * ,T Sv^-^ TWfS TO SU'SS THU • 

pkint -y ou yii»i* hav_ 

sis; -.hat -as, -0 *«. «« « «■" ,,_r 

INPUT “ . r. »-£.9T<T7 TI*-» 200 

t f z<«» ~ > i. * a ^as c b stv 5W 2 

PRINT "PLEASE THY A A5- 

in? CWWTSH ««" W 

p. JUT ClCO-RMGC 00*1 
X*0 

^r l p*Z rA THEM 260 
A* A*- 1 
GOTO 230 
A* A- 1 

IF A* 0 THEM 39 0 
“* 1 

» A 

IF J»? THEN 320 
a= «♦ 1 
3 OT 0 290 

ta«> 1 

j.b-2 » A 
Y» «?* 1 0 • A 
X*X*Y 
F» P-J 
GOTO 260 
E>X-»P 
Z 1*2- I 
RESTORE 
FOR C* I TO II 
REA" " 

NEXT C 
0-1 

E“t"’o?k- . *,« *«£=- '•*"'* •”*'* ' *" **** “* 

PRINT TA«< !©>*** r-tF^S 

INPUT Y 

IF Y» n OP Y« I THEM 300 

R- 0 

o-r 

rtOSL’° 9 40 
IF R- I THIN 730 
IF Y ■ E TH r M 650 

S?ftl ns-S OUT .F YOUR »«*««. JS TOO H!TR OR TOO tO, 

it y>r TK r 4 630 

PuIriT TA°<5>; M T00 lov. GUESS »"GJ 

p°i:jt 5 ta=»<5»; "TOO hi*h- guess •” ft J 
GOTO 500 
IF G*1 THEM 7£0 

PHI jIT "R!«HT* 4 IT TOOK YOU GUESSES.” 

PRINT "00 YOU VANT TO PLAY A3A!M"J 

INPUT FSC 1, 1J 

IF RSI 1. I J-**N” THEM 1130 

PRINT 

GOTO 140 ... 

PRINT "WOV" YOU GOT IT !M 1 GUESS’ • 

GOTO 6 70 
F* E 

PRINT "TO U LOS'S “UCKWEAT* THE MUH«FR !» B ASE **1" VAS " c ' 

PRINT 6 "TIFBE IS NO SUCH WLM a 'F. IN ^AS^ "I". TRY AGAIN." 

«0T0 49C 

PRINT "I SAI " A MUI°EK BETVEEW 1 AM" " n 5". THY A«A!M. 

REH° \hIS SUBROUTINE F*M"S OUT IF THE JtM°EH IS A r C EPTA*H. F 
REM IN THE GIVEN °ASF 


*»AS 

A- 1 

IF C< I O’ A THEN 3SO 
A* At I 
GOTO 350 
A= A- 1 

IF At=0 THE?! 9 40 
V* IMT (. I » 00005) 

IF V >• Z THE! 96C 
0,0- 10* A* V 
GOTO 3 JO 

IF 0 »* Z THEN 9 60 
GOTO 970 

F.« 1 

RETURN 

F.c>l THIS SU^F.OUTINb CHANGES TH' JIW BC R INTO A STRING 
At* "1 234567390" 

S- 1 
K= 6 

IF F >= IO»K TH'N 1070 
K-K- 1 
GOTO 1030 
K»K- 1 

T- INT< • lrK«l>.00005> 

F = 10’ X-T 


'WTK iS Hhe MUWUPff (P*<£ e 2 ) but you <£et to pi<*J£ the i>aSe 



THlNK ** * ****** >S V V 4 1 I\> 144 

Tn'J TO GUESS N> NUMBER* ENUS U S N IS\\NB 

• O HV‘ NY NvN»lR BY Y V K»S 1*0 n*- N^lUKt, I'll 

is.^L YOU | F \OU HAVE Y RAPPED N\ NUMil ^ OR W> N\ 

Is SMALLER TN^N \vH»S \ KO I RAP NUMBERS OR 

l * *' NUMBER IS LARGE R VtiAN \OVA YwO ISV' NV*»lK* 
i t*LL YOU THAI YOU *M\* I RAPPED NY NUMBER. I 
'itAM iNAY NY NUMBER IS YOU* I RAP NUMBER* 

OS • PERHAPS MY NUMBER YS YnE ON* OP VOO% 

TRAP NUMBERS. 

I It IMPORTANT! I l IF YOU ININS YOU KNOS NY NOttBlR. I MEN 

enter your guess for »boin* irap number*. 


s\ 

<j 


TRAP 


nr? > * « \" ) 

& u . I 


"D 


Mm* * \\\\ Mt*l imo OMn l i *o»‘li *o\ ilium 


l *N THINKING. .. ININS YNtU . .AMI l HAVE A 

FIPST TRAP NUMBERti 
SECOND TRAP* MJN^lSf It 

HY HUMBER IS LARGER T NAN YOU* TRAP NUMBER*. 

FIRST TRAP NUMBER?** 

SECOND TRAP NUMBER?!! 

NY NUMBER IS lAStfiS t NAN Y’OUK TRAP NUMBERS. 

FIRST TRAP NUNdiKfit 
SECOND TRAP NUMBER * 44 

NY NUMBER IS LARGER THAN YOUR TRAP NUMBER*. 

FIRST TRAP NUNS C R ? 4 ! 

SECOND TRAP NONA CRT 4 # 

HY NUMBER IS LARGE R THAN YOUR TRAP NUMBER*. 

FIRST TRAP NUMBSR? 4 I 
SECOND TRAP NUNBE'R*BB 

Ht NUMBER IS TRAPPED NY YOUR NUMBERS. 

FIRST TRAP NUMBER?#! 

SECOND TRAP NUMBER? >S 

NY NUMBER IS TRAPPED BY YOUR NUMBERS. 

FIRST TRAP NUMBER * 41 
SECOND TRAP NUMBER* 4 S 

NY NUMBER IS LARGER THAN YOUR TRAP NUMBERS. 

FIRST TRAP NUNBERP 44 
SECOND TRAP NUMBER ? 44 

HY NUMBER IS LARGER THAN YOUR TRAP NUMBERS. 

FIRST TRAP NUMBER* 4 * 

SECOND TRAP NUNBEKT 4 * 

my number is larger than your trap NUMBERS. 

first TRAP NUMBER* 7 B 
SECOND TRAP NUNBERtTB 

YOU SOT IT IN I • SUESSES. • .LET *S PLAY AGAIN# 


I*H THINKING. ..THINKING.. *AHI l HAVE A NUNBKRI 
FIRST TRAP NUH 8 ERT 33 

«? C 2 uHB^S N S^LLiR%HAN YOUR TRAP NUHBERS. 

FIHST TRAP NUMBER?** 

SECOND TRAP NUHBERTII 

MY NUMBER IS TRAPPED BY YOUR NUMBERS. 

FIRST TRAP NUMBER ? 15 

S'&JSVSSSi’" *«■««• 

FIRST TRAP NUMBER? I 4 
SECOND TRAP NUMBER? 1 * 

MY NUMBER IS TRAPPED BY YOUR NUMBERS. 

FIRST TRAP NUMBER? I 7 

« 5 c S 2 . 55 , ' s "! 5 ES» , t»*- «■«« «««• ««•«*•• 

first trap number? I 4 

s?s, T r »«t ..... 



T 

10 


LUCKY • 


LUCKY . 


I 

an 


1 


) 

40 


\ 

•M ' 


I 

mi 


I 

h\ 


l l * 

no mi 1 1 hi 


A '. r 

IQ <\> HI 40 


* IlMlt* mil 11*1 Ul^K 


\ 

mi 


i 

\\u 


\ 

Ml 


I 

mi 


\ 

•Ml 


I 

Kill 


I mmk »»n !•«»• i»iuMm lull uill 



6 ^ 

^ hnvMtt i n*o»oml U»m imooIho 

T H 

r f i fill 


no mo 


-T~ 

S\ 


1 v 1 ‘ Mul Hoomwlmm 

i i r r i H i "" i 

ACI M\ ml <W Kl w» Bl IIM 


till om 


So I otrtvl0 my l*«P Mttrtllm 
•«»i »m*ll* 


<to«l llo»»lly 


gotclinif 


10 


I 

HI 


1 

.10 



~r~ » 

mi mi ioo 


Wall look mtt 10 UtlHMtA IH»I Ion uootl 
M«ho Iii inv MO'Otnl mioov I iu« n niuiili 
Imuni Eli ol^uv^ 


I AI M Mill SS I l IMINAH M AHIUM 
\ WO 1 MIHMN IU nil IU MAININU 
NUMIll IIS 




PLAY MV GA* 48 


„„ TO KNOW HOW TO PLACES 


ftr 


closer 


nilTtHMK OP A whole ^ ro ^” i O0 ‘ 
SL T ?y^e“«“^^ e Si£l“ type. 

jk ssr- 2 — 

3S^«WCW« TO NUHBEH... 


VEHT * VERY CLOSE TO « GUES SING. 

thinking of a niwber. stabt 
OK# STAR-SL^ 1 ^' 1 >-) t 

WHAT IS YOUR GUESS? 10 


WHAT IS YOUK GUESS? 50 


UNKING of a NtMBEH. STABT 

first guess is 10 


yHAT is YOUR GUESS760 


still closer- 

whoops 

aha! ■ 


WHAT IS your GUESS? 90 

* * * * 

WHAT is YOUR GUESS795 

* * * 

WHAT IS YOUR GUESS760 
WHAT IS YOUR GUESS701 


***** 

WHAT IS YOUR GUESS? 78 


UHAT IS YOUR GUESS776 

******* 


If the computer prints 7 stars, 
how close are you to the 
computer number? 


WHAT is YOUR GUESS777 ^ ** ** ** ** ** ** **l!l 

T^T*I riiTT ^GUESSED «Y COSMIC N UMBER IN 10 GUESSES^ 


WANT TO PLAY AGAIN? YES 


OK, STARSEEKEB, I AM THINKING OF A NUMBER* STABT GUESSING. 
WHAT is YOUR GUESS789 

* * * 


WHAT IS YOUR GUESS? 50 

* * * * 


WHAT IS YOUR GUESS? 36 


WHAT IS YOU R GUESS? 60 

****** 


WHAT IS YOUR GUESS? 63 

******* 


WHAT IS YOUR GUESS? 62 

*« ** ** ** ** ** ** ** ** ** ** ** ** ** ** *+ * ** ,M 

THAT'S ITItl YOU GUESSED MY COSMIC NUMBER IN 6 GUESSES. 


WANT TO PLAY AGAIN? NO 

OK# GOODBYE FOR NOW. PLAY WITH ME AGAIN SOMEWHEN- 


WHAT DOES 7 STARS REALLY MEAN? 6 STARS? 5 STARS? 4 STARS? 
3 STARS? 2 STARS? 1 STAR? 


IF YOU KNOW WHAT THE STARS MEAN, YOU CAN ALWAYS GUESS 
THE COSMIC NUMBER IN 6 GUESSES - OR - IF YOU ARE LUCKY, 
SOMETIMES IN FEWER THAN 6 GUESSES. 


WHAT IS THE BEST FIRST GUESS? 


INSTEAD OF TRYING TO GUESS THE COSMIC NUMBER PLAY STAR 

ff gfj tH^AMn^ 10 " PQ ^ IPI F Y ° U “ ,GHT GUESS 

2 THEN SB" AN 3 D SOO^ °* °* ^ ™ Y '■ ' ° * ™ 


PROGRAM 




A 


% 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


KEM m« COPYRIGHT *** STARS STARS *** STARS *** 

PRINT "WELCOME^ IV r** PCC ' P ‘°* B ° X 31 ®' ME * L0 P*HK CA 
PRINT "PLAY my IL V GALA * y - 1 '« ™ CHARGE of the stars here. 
PRINT PLAY MY GArtE • 5TAHS * A>,D 6£T SOME STARS FOR YOURSELF!" 

PRINT "WANT TO KNOW HOW TO PLAY"! 

INPUT ESC 1,13 

IF 2S -o "Y" THEN 280 

HEM ♦♦♦ HERE IS HOW TO PLAY 
PRINT 

PRINT "I WILL THINK OF A WHOLE NUMBER FROM 1 TO 100.- 
PRINT "TRY TO GUESS MY NUMBER. AFTER YOU GUESS* I" 

PRINT "WILL TYPE ONE OR MORE STARS <*). THE CLOSER" 

2! "T™ *** T0 NUMBER. THE MORE STARS WILL I TYPE." 

°* E STAR MEAN5 YOU ARE FAR AWAY FROM MY" 

PRf^J «wc‘ MBER * SEVEN STARS <+ + * + *•«> MEANS YOU ARE VERY." 
PRINT "VERY, VERY CLOSE TO MY NUMBER III*' 


270 

280 


300 


310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 


•™ IN,KS ' OP A NUMBER FROM 1 TO 100 
LET X-INTC 103*HND<0)!*1 
PRINT 

PRINT "OK, STARSEEKER, I AM THINKING OF A NUMBER. START GUESSING. 


REM GUESSING BEGINS 

LET N-l 

PRINT 

PRINT "WHAT IS YOUR GUESS"! 
INPUT G 

IF G-X THEN 550 

LET D-ABSCG-X) ^ 

IF D >« 64 THEN 500 
IF D >- 32 THEN 490 
IF D >. 16 THEN 480 
IF D >• 8 THEN 470 
IF D >- 4 THEN 460 
IF D v 2 THEN 450 


PRINT " 
PRINT " *"5 
PRINT " 
PRINT " 
PRINT " *-i 
PRINT " *"! 
PRINT " *"! 
PRINT 


LET N»N+ 1 
GOTO 330 


D is the distance from the guess G 
to the cosmic number X. 

Lines 380 — 500 print from one to seven 
stars, depending on the value of D, 

BELLS! In each PRINT statement, we 
put a BELL (CONTROL G) 
after the star. The BELL doesn't 
show in the listing. 



540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

6S0 


REM ♦** PLAYER HAS GUESSED THE GALACTIC NUMBER 
FOR K-I TO 18 
PRINT " **"! 

NEXT K 
PRINT "I!!" 

PRINT "THAT'S IT!!! YOU GUESSED MY COSMIC NUMBER IN"JN! "GUESSES. 
PRINT 

PRINT "WANT TO PLAY AGAIN"! 

INPUT ZSC 1,13 
IF ZS«"Y" THEN 280 

PRINT "OK, GOODBYE FOR NOW. PLAY WITH ME AGAIN SOMEWHEN." 

END 


more bells 


SUPPOSE D = 23. HERE IS WHAT HAPPENS IN LINES 380 - 500. 

380 IF D >= 34 THEN 500 

♦ 

390 IF D > = 32 THEN 490 

♦ 

400 IF D>=IB THEN 4SO — ► 480 PRINT**” 

490 PRINT**” 
500 PRINT**” 


so,forD= 2d ■> three stars are printed. 


Your turn. 


SUPPOSE 16 < D < 31. HOW MANY STARS WILL BE PRINTED? 

SUPPOSE D>64. HOW MANY STARS WILL BE PRINTED? 

SUPPOSED = 1. HOW MANY STARS WILL BE PRINTED? . 

SUPPOSE 2 STARS WERE PRINTED. THIS MEANS THAT 4 D 4 


7 


CLOCKS 


DO YOU VftNT INSTflWCTIONSYVeS 

aS -teH mIDN* ghT 

I 'M THINKING OF ^of^TO %V TO ^ THB TV* ‘ ~ 
AND ia«0O MOON- VOOft JOB 

THINKING OF . C0DE; W0HDS bILL 

CODE WORDS « C 0RJiECT. 

«2S : «S ««c««s?w ♦ « . .. 

“K* : S?T ofTby at /£/♦*-»• 

®E0I - hooks off VJ 1 ® + on - s. 

I min! off OY 01 MOST * OH _ *® # 

r : 0-2WS.P-S 5K— OH - 

FOkHAT . HH.NM OK Him ONLY. 


O.K. I HAVE TKOUGHT^OF pues S 75S30 
HECTO MICRO YOUh «0|||^ |4 a 

******** *!**** j£Sj . r°WE 1 GETT I NG ' GOOD ! 
try to G better yook score next TIME .. 

a.'W^ns yas.» 

YOUR GUESS ?2 1 53 

your GUESS? I 505 
YOUR GUESS? 0 : 07 

AKE^-T^E 1 GETTING GOOD f 
tky to better* yook SCORE NEXT tine •• 



t 


flours 


DEC I BLA 
HECTO BLA 
HECTO DECA 
************* 
4 GUESSES 



I 


ONE MORE TINE? YES 

O.K. I HAVE THOUGHT^ A™-;,,, 

HFI'TO BLA YOJH GUESS ?9 J 5 7 

DEC I DECA YOUR GUESS ?5S 55 

HECTO DECA YOUR GUESS ?As56 

ScTO KILO YOUR GUESS ?6* 56 

^,*********** VOUGOT irmnM 

5 GUESSES THAT'S ABOUT PAR FOT 
TRY TO BETTER YOUR SCORE NEXT TIME •• 


THE COURSE. 


BLA 

HECTO 

MEGA 

MEGA 


ONE MORE TIME? YES 

O.K. I HAVE THOUGHT OF A TIME. 

YOUR GUESS ?3: AS 
BLA YOUR GUESS ?9s 20 

CENT I YOUR GUESS ? 1 0 : 1 7 

DECA YOUR GUESS ? 1 0 t 15 

DECA YOJH. GUESS?10tI6 

**i*********** YOU GOT IT! f ! f ! f ! 

5 GUESSES THAT'S ABOUT PAR FOR THE COURSE. 
TRY TO BETTER YOU n SCORE NEXT TIME •• 


ONE MORE TIME? YES 

O.K. I HAVE THOUGHT OF A TIME. 

YOUR GUESS 70 801 
BLA MICRO YOUH GUESS ?6: 1 2 

MEGA DECA YOUH GUES$?6:!3 

************** YOU GOT IT!!!!!!! 

3 GUESSES: AREN'T U’E GETTING GOOD! 
THY TO BETTER YOUH SCO^iE NEXT TIME •• 



8 




Afte? - 

I iwemfed a ^tmtefy: Here 
a^e $©me fames usimf my 
stmtefy I elaim I earn always 
get tke gepyeet time in at 
most i> guesses. 


ONE MOKE TIME? YES 

O.K. I HAVE THOUGHT OF A TIME. 

YOUR GUESS 70 : 0 1 
DEC I MIC HO YOUR GUESS ?3 : 12 

MEGA CENT I YOUd 6U«2SS?3tl5 

MEGA DECA YOUR GUESS ?3t 16 

MEGA DECA YOUR GU£SS?3:17 

** **** ******** YOU GOT IT !!!!!! ! 

5 GUESSES THAT'S A3 OUT PAR FOP THE COURSE • 
TRY TO BETTER YOUR SCORE NEXT TIME .. 


cun you figure 

out my strategy ? 


ONE MORE TIME? YES 

O.K. I HAVE THOUGHT OF A TIME. 

YOUR GUESS?asfll 
RLA CENT I YOUR GJESS?6:04 

HECTO DECA YOUK GUESS ?7:05 

HECTO DECA YOUR GU2SS?8s36 


************** YOtJ GOT IT!!!!!!! 

4 GUESSES 8 AREN'T WE GETTING GOOD! 
TRY TO BETTER YOUH SCORE NEXT TIME .. 


are my 

sssutnpiioTii eoTTeCt? 


ONE MORE TIME? YES 


O.K. I 

HECTO 

MEGA 

Mega 

MEGA 


HAVE THOUGHT OF A TIME. 

YOU -l GUESS ?0:01 
BLA YOUH GUESS? it 22 
WILLI YOUH GUESS ? I : 28 
CENTI YOUH GUESS ? 1 * SI 
DECA YOUK GUESS ?1 5 32 


************** YOu GOT IT! ! ! ! ! ! ! 

5 GUESSES THAT'S ABOUT PAR FOR 
TRY TO BETTER YOUH SCORE NEXT TIME .. 


THE COURSE. 


ONE MOHS TIME? YES 

O.K. I HAVE THOUGHT OF A TIME. 

YOUR GUESS 70531 


BLA BLA 

DECI MILL! 

HECiO CENTI 

MEGA DECA 

He ****** * ** * * * * 


YOUR GUESS ?6: 2£ 
YOUK GUESS ?9: 28 
YOUK GUESS 710:31 
YOUR GUESS 7 13 i 32 
YOU GOT ITI ? f F ! F f 


S GUESSES THAT'S ABOUT PAii FOR THE COuRSr.. 


TrtY TO BETTER YOUH SCO'iE NEXT TIME • • 


ONE MOKE TIME? NO 


twfwt 

assumptions itn i waiving 



SEE YOU LATER 


9 


WOULD YOU LIKE THE RULES? YES 

NUMSFK^uIur 0F ft THK£E OI6IT NUM8ER. YOU CAN 6UESS WHAT 
NUMBER I HAVE IN MIND AND I WILL TELL YOU! 

RICO - ONE OIGIT IS IN THE WRONG PLACE 
EERMI - ONE DIGIT IS IN THE CORRECT PLACE 
BAGELS - NO DIGIT IS CORRECT 

OKAY, I HAVE A NUMBER IN MIND. 


BAGELS 


GUESS # 
GUESS 0 
GUESS # 
GUESS # 
GUESS # 
GUESS 0 
GUESS # 


s 3 70 
I 789 
: 102 
501 4 
5213 
:025 
: 026 


PICO 
BAGELS 
PICO PICO * 
FERMI 
PICO 

FERMI FERMI 


Pico Pico mean? 2 digit? in the Viong place. 
•Fermi Fermi mean? 2 digits? in the coTTet place 


026 

025 

Ferani^ 

Fermi 



r *1 /*" i 

Pico Fermi mean? a digit in five wrong place <$ a digit, in the correct place. 


OKAY# I HAVE A NUMBER 

GUESS #1 t 1 23 

GUESS f 2 *345 

GUESS #3 *637 

GUESS 0 4 : 738 

GUESS # 5 *936 

YOU GOT IT 

AGA1N7YES 


OK. now I know that 5 is the Fermi. Vhy ? 

Veil, Suppose 5 is Jkoi the Fermi Then it 
could not "be the Pico in guesses' 1 <§> 2. In 
that case , 1 or 2 must he in the number 
c*n $ 4 or 5 iuustbe in the number (*2). 

So . . . don’t you See . . . gues ?? 5 should have 
been Bagels. 

Since 5 is the Fermi, then 7 and 8 are not in the number - 


PICO 

PICO 

PICO FERMI 
FERMI 


\ 


okay, i have a number in mind. & 6 must have been the Pico in guess *5. 


GUESS #1 *123 

GUESS 0 2 *456 

GUESS #3 *478 

GUESS 0 4 *786 

YOU GOT IT 

AGAIN? YES 


BAGELS 
FERMI 
PICO PICO 



Ha! 4 is not in the number. (Ho Fermi in #5.) 
So T <$ 8 must be in the number, but in the 
VTong places <$ , the Fermi in #2 must be 
5 or 6. Therefore (as the -mathematician? 
Sometimes say), the convptfterS number must 
be 766 or 857. Vhy not 758? 


OKAY# I HAVE A NUMBER IN MIND. 


GUESS #1 *098 
GUESS #2 *765 
GUESS #3 *743 
GUESS # 4 i 712 
GUESS #5 s 1 72 
GUESS #6 *721 

YOU GOT IT 


BAGELS 

FERMI 


FERMI 
PICO PICO FERMI 
PICO PICO PICO 


^ ^Hioops I wasted a Que?? 
>at guess #2 <§> guess *5 


I should have looked 


AGA IN? YES 


OKAY# I HAVE A NUMBER IN MIND. 


GUESS #1 *123 
GUESS # 2 *456 
GUESS #3 *157 
GUESS #4 * 1 86 
GUESS #5 *106 
GUESS 0 6 *196 


FERMI 
FERMI 
FERMI 
FERMI FERMI 
FERMI FERMI 


Must be 1 or 5, but not both. 

7 is not a number. How- do I 
know? 


YOU OOT 
AGAIN7N0 



Mu?t be 1 and 6. 


Try your hand at these Answer# at bottom of page upside down. 


ZJ 

GUESS # i :739 PICO 

GUESS * 2 *127 PICO 

GUESS # 3 *374 6AGELS 

GUESS #4 : 85 1 BAGELS 

Name two digits that are in the number. 


( GUESS #1 1123 PICO 

GUESS #2 *214 FERMI 

GUESS 8 3 >256 BAGELS 

GUESS #4 >718 FERMI FERMI 

GUESS #5 >719 FERMI 

tyhat is the number 7 

GUESS # 1 >937 PICC PICO PICO 

GUESS # 2 : 375 PICO PICO PICO 

what i$ the member ? 

Tj GUESS 8 1 1630 FERMI 

GUESS # 2 * 670 BAGELS 

GUESS #3 : 1 3S BAGELS 

GUESS 8 4 *940 FERMI FERMI 

GUESS 8 5 1240 PICO FERMI 

Vhat is the number ? 



A VARIATION OF BACjELd. Ve call if’BEYONl) BAQEL3.“ 

Instead of Pico, Fe>xmi 4 Bag?]^ , you get a numerical score. 

You get 1 point for each digit in the wrong place <$ 

2 pointy for each digit in the correct place. 

For example : 


Computer * No. Your Gjuei* 3 core 


708 

708 

708 

708 

706 

738 

738 

738 

738 

738 


123 1 

346 0 

605 1 

234 2 

697 2 

769 3 

796 4 

387 3 

763 4 

738 6 That* it! 


OW n 91 0 V QOL S 

9 20 0 ^ W* \&P P*?% 

ai[X \Z* 989*^) ^ori d P J C 10 >^I U T dC t >8™* Z & (I 4 * stwib) 

<30 i>[d pu£ ro rtx aq 5 *.A 0 iM[ o^t? d A '6 £ £ T 



bagels too easy? try QUADGT 


a) YOU WAMT ro SEE THE I \15ThuCTIQMS ? Y Kb 
THIS GAME IS A LAY ED AS FOLLOW St 

I •ILL CHOOSE A A DIGIT MUMPER* nJO TWO DIGITS WILL UK THE 3/HE. 
YOUR JOB WILL BE TO FIGURE OUT WHAT DIGITS I PICKED# 

J4AKE YOUR GUESS BY ENTERING A A DIGIT MUMBErt* I WILL 
HSSPOMD WITH A 2 DIGIT MUMRER* MY hESPOMSE INDICATES TWO 
tllMGS. FIRST* I TELL YOU HOW MAMY DIGITS YOU GUESSED AHc 
IM THE DUMBER I CHOSE* SKCOMD* I TELL YOU HOW MA\!Y DIGIIS 
K PLACED IN THE CORRECT POSITION WITHIN) THE CHOSEN) 

.NUMBER. 

FOR EXAMPLE# IF YOU GUESS 1463 A\1D 1 R EsPOMD WI TH 
31 THEM YOU GOT 3 OF THE DIGITS WHICH APPEAR 1 \l THE 
AtfSwER BUT ONLY ONE DIGIT IS In) THE CORRECT POSITION. 

THUS, THE NUMBER I CHOSE COULD POSSIBLY HE 0364. 


r mystery number sm 

MY GUESS: <214 2)1 


2 correct digit# 

) in the rlidif piece 


MYSTTKY NUMBER 
MY GUESS: 

3 c orrect digit# 

none In Hie correct piece 



THE EXPERIENCED PLAYER WILL AVERAGE b OR 6 GUESSES PER GAME* 

, AS I FOUND OUT . . THIS SHOULD SAY ’THE I XPI RI 
ENCED AND CLEV ER PLAYER’’ OR PERHAPS “ THE 
EXPERIENCED AND LUCKY PLAYER'*) 


HERE IS WH AT H APPENED 1 

MY FIRST GUESS 
GAV E ME A SC ORE OF 20 
(2 CORRECT AND NONE IN 
THE RIGHT PLACE) 



EM TEH YOUrt FIRST 
1234 20 
2156 31 


4 DIG ! I GoFSS. 


2b 17 

71 as 

347b 20 
5163 20 
2163 20 
5173 10 
34 5 6 31 
3256 31 
3156 21 
23r>6 31 


80 

10 



VWSE GUY COMPUTER’ YOU A RE OBVIOUSLY A b&Gl MNEn* ** -{ 1 ^ i • 

THE FIRST DIGIT la A 4 
4256 4a 
4265 41 
4526 41 


\OT A VERY FRIENDLY COMPUTER! 


SO ... I TRIED AGAIN 


“I'M BEG! M \1 1 \1G TO LOSF. MY PATIENCE. 

THE FIRST TWO DIGITS ARE 46 

IF YOU CANMT GET IT MOW » GIVE IT UP. 

4625 42 
4652 44 

YOU GOT IT I N) 17 GUESSES. PLAY AMOTWEri GAME/ YES 


ENTER YOUR FIRST 4 DIGIT GUESS. 

1234 20 
2156 20 
7012 30 
9721 44 

YOU GOT IT IN 4 GUESSES. PLAY ANOTHER GAME? YES 


WOW! TM REALLY GETTING GOOD! 


ENTER YOUR FIRST 4 DIGIT GUESS. 

1234 11 

1567 10 

5289 2 1 

9639 10 

0254 31 

0259 30 

0258 20 

1234 U 

0159 30 

0129 20 

0459 40 

0S94 41 



Rare photograph of Quadgt wcanng hn hageL 


£e f^rst^d igj[T^is A a^ 5**^ RR ^ R * HERE ' S Aia “ T * 

5094 42 
5904 44 

in 601 IT If1 14 GUESSES. PLAY ANOTHER GAME? 

S^ELL, NOBODY’S PERFECT WOULD SOMEBODY. ANYBODY. PLEASE SEND ME SO 
IDEAS ABOUT HOW TO PLAY THIS GAME? 


SEND !T TO: PCC 

P.O Box 310 
Menlo Perk Ok. 94025 



© © © © © <s> 


BUTTON. 


\ 


BUTTON. 


WHO’S GOT THE BUTTON? 


BUTTON is a game of logic with a little twist - when you 
get very close to the button holder, the button "slips away from 
you" ! 

As you play, ask yourself, "Is my new information about 
where the button is now, or where the button was. one move ago?" 


©©© ©©©©©£) © 0 ©©© 

© 
© 
© 
0 

TTlie 

:J"TT0J, — j TTOn , { - 0T TiiZ _*JTTOfl? 


se":::j sitting in a ci~.cle 

amj v ou'.;e 1:1 the center 


oCoTIO GjCUne^y^ 

'U7iic\ go step 



”K0 DO YOU GUESS HAS IT? 1 
I : *TTHG* HE? * 


"hoeve;: iuir- it, keeps it 

... - y - tjSS'S MAS IT? 2 
: 'Wj I-iS?* 


"ACEVEK HAS IT, KEEPS IT 
!T H0 DO you GUESS HAS IT? 3 
3 : ME? * 


"HGEvsp has it, keeps it 

* ’HO DO YOU GUESS ;tA£ IT ? A 
A ; "’HO, ME? ' 


VH0EVKR HAS IT, KEEPS IT 
"HO DO YOU GUESS HAS IT? 5 

5 : 'MY NEIGHBOR rb*S IT* 

... HUT WHOEVER HAS IT, °.mSSES IT 
TT H0 DO YOU GUESS HAS IT? 6 

6 : 'MY ME I GHBQF. HAS IT' 


SOMEONE HAS THE DUTTON «MP YOU HAVE TO GUESS "HO 

HE CAN Pj-.SS THE ^UTTOU CIF HE 1 ’AMT 3 TO* 

HUT ONLY TO SOMEONE HE'S SITTING NEXT TO 

IF YOU '.'AMT TO STOP, TYPE 0 (ZERO) 

GOOD LUCK I ! ! 

CL ‘Ytrif QXort (Z CLlrxt 

VJ\i.c\ ^jiqi >o ■i'Koct 7 TnusT 7 iavc 


... E'JT *'KOE"EP. HAS IT, PASSES IT 
"HO DO YOU GUESS HAS IT? 7 
7 : 'MY NEIGHBOR H^S IT* 


... 31 JT WHOEVER HAS IT, PASSES IT 
VHO DO YOU GUESS 3L*S IT? 5 
5 : 'RIGHT YOU ARE - LUCKY !!!' 


CC- (C/ ame ifi. toTiicT^ 
tXe. bvcHoTv comes 'ba.c'k. 
-t* X : 


"HO DO YOU GUESS HaS IT? 5 
5 : ' *'NG, MET * 


"HO EVER HAS IT, KEEPS IT 
"HO JO YOU GUESS ilAS IT? 2 
2 : ,T ’KQ, ME? * 


i^Hbcrt 

7 x '") 

6 x-t 3 


Ntigl. 

bo*s 


"HOE' 'EM HAS IT, KEEPS IT 
"HO DO YOU GUESS HAS IT? 7 
7 * * RIGHT YOU - LUCKY I! ! ' 


tf ‘ 

liakS 


"HO DO YOU GUESS HAS IT? 5 
5 : ' ,7 H0, HE? ’ 


"I.OEVER HAS IT, KEEP S IT 
"HO DO YOU GUESS HaS IT? 3 
3 : *"H0, HE? * 


"310 E’ 'EE HAS IT, KEEPS IT 
TTHO DO YOU GUESS H*iS IT?1 
1 : * NY UEIGH130F. HAS IT* 


.. 3UT WHOEVER HuZ IT, PASSES IT 
HO DO YOU GUESS HAS IT? 1 
i : 'RIGHT YOU APE - LUCKY ! ! 1 ’ 


Some. Tips for Bof+on Foshtrs: 

does +-ke bo++.n get 

passed? "Tkc_ (Ky\ stoe.r- +k\s one. ^ v/ouvsel-T : tOko m\ght 

is ccwcwV -+o +Vve ' L — <v^ + 


~T~ -£ *Hve i\eighb©ir has it bot 
parses it" i*V Coo I d come, back 4s> J 

J 3 +Kt frterN^ ^ou“j^S+ 9u«Std. (L<zk 


have. it?kJk*t a ire The 
p robo-b'i Il'Vie S? 



.. . a 

f.r \jovv fVovj^VrVs . . • 


If you writo a letter lino on the floor or on paper, Litter it essentially Number. Beginning learners are practicing letter recognition 
(say the lettor as you point to it) and ordering (dictionary skills). 

Abagel is bagels, hut you use three-letter words instead of 3 digit numbers. Try the extra challenge of disallowing nonsense 
syllables. As a variation, onch side can bo both tho guestor and tho computer. Both players have their own secret word and try to 
guess the other's word before their own is guessed. Minimize the competition of this version: play until both words have been 
guessed and try to top your previous score. 

Hangman is simpler than A huge t. In Hangman you guess one letter at a time; in A bagel you guoss three. In Hangman you are told 
if your guess is in the word and its position; in A bagel you get clues which must be combined with previous information. 

Some of us are offended by the format of Hangman. You can keep the structure by changing to a point system. One version is. 
guess either a letter or tho entire word; 100 points for uncovering the word, 20-point bonus for each blank that was left when you 
guessed the word, and -10 for each incorrect guess (either lottors or words). Like Abagel each side can have a secret word and be 
trying to guess the other's word. 

Groups can play Madllb without the computer. Writo story skelotons and encourage the groups to write their own. Have fun 
practicing parts of speech. 

Play Word with paper and pencil, with or without a time limit, with or without other players. 


WORD GAMES 


Letter 

Abagel 

Hangman 

Madlib 

Word 





T 





is Sort of 

put instead of 
cpie£$m<£ a wiT(i‘ 

P&T? ^ou & 

'letted 



I WILL THINK OF A LETTEK FKOM A 10 Z. 

TKY TO GUESS MY LETTEK. AFTEK EACH GUESS# I WILL 
TELL TQU IF YOU GUESSED MY LETTEK OK IF YOUK GUESS 
IS TOO HIGH OK TOO LOW. THE LOWEST LETTEK IS *A * 
AND THE HIGHEST LETTEK IS # Z*. 



if you wish# think of the letters fkom *a • 

TO •£• AKKANGEO IN A TOTEM POLE WITH ’A* ON THE 
BOTTOM AND 'Z • ON THE TOP. IF I TELL YOU TO TKY A 
HIGHEK LETTEK# TKY ONE CLOSEK TO THE TOP OF THE 
TOTEM POLE. IF I TELL YOU TO TKY A LOWEK LETTEK# TKY 
ONE CLOSEK TO THE BOTTOM OF THE TOTEM POLE. ENJOY!!! 

OK# I HAVE A LETTEK. STAKT GUESSING. 

WHAT IS YOUK GUESS? A 

TOO LOW. TKY A HIGHEK LETTEK. 

WHAT IS YOUK GUESS? Z 

TOO HIGH. TKY A LOWE* LETTEK. 

WHAT IS YOUK GUESS?* 

HEY! II THAI'S NOT A SINGLE LETTEK . P LAY F A I K» NOW! 




i IS t!? 7^ 6 i,E 5 STD0n ' t ae GXUMHY 
HEY! I I THAI S NOT A SINGLE LETTEK. PLAY FAIr 


WHAT IS YOUK GUESS7N 

TOO LOW. TKY A HIGHEK LETTEK. 


NOW! 


WHAT IS YOUK GUESS?! 

TOO LOW. TKY A HIGHEK LETTEK. 

what is youk guess? w 

Too HIGH. TKY A LOWEK LETTEK. 

WHAT IS TOUK GUESS? V/ 


YOU GOT IT! I | 


LET'S PLAY AGAIN. 


ok. I HAVE A LETIEH. STAKT GUESSING. 
WHAT IS YOU K GUESS? 



I 






RUN 

ABA GEL 


AKU.II 


ALL THE words 1 KNOW HAVE THREE LETTERS IN THEN* 

I WILL THINK OF A WORD# AND YOU TRY TO GUESS IT - 
EACH TIME# JUST TYPE A THREE LETTER WORD (OF YOUR OWN> 
AND SEE WHAT I SAY* 

•BAGELS' MEANS NONE OF YOUR LETTERS ARE IN MY WORD* 

BUT FOR EACH LETTER THAT IS IN MY WORD TOO# I WILL SAY# 
•FERMI* IF I T *S IN THE RIGHT POSITION# OR *PICO* 

IF IT'S IN A DIFFERENT POSITION* 

BUT 1 WON'T TELL YOU WHICH LETTERS I MEAN - YOU HAVE TO 
USE YOUR READ TO FIGURE THAT OUT ! 

O.K. 1 HAVE A WORD* 


WHAT IS YOUR GUESS7ART 
BAGELS 

WHAT IS YOUR GUCSS7EAT 
BAGELS 

WHAT IS YOUR GUESS? IRE 
PICO 

WHAT IS YOUR GUESS? LIT 
FERMI 

WHAT IS YOUR GUCSSTHIM 
FERMI 

WHAT IS YOUR GUESS7BIG 
FERMI 

WHAT IS YOUR GUESS7SIC 
FERMI 

WHAT IS YOUR GUESS?D1P^ 
FERMI PICO 

WHAT IS YOUR GUESS7LID 
FERMI 

WHAT IS YOUR GUESS7P IN 

FERMI FERMI FERMI 

YOU GOT IT! MY WORD IS PIN 


O.K* I HAVE A WORD* 


WHAT IS YOUR GUESS7ACE 
BAGELS 

WHAT IS YOUR GUESS? ICE 
BAGELS 

WHAT IS YOUR GUESS70UR 
FERMI 

WHAT IS YOUR GUESS70AR 
FERMI 

WHAT IS YOUR GUESS70WN 
FERMI 


WHAT IS YOUR GUESS70DD 
NO TWO LETTERS ARE THE SAME* 

WHAT IS YOUR GUESS70LD 
FERMI 

WHAT IS YOUR GUESS70WL 
FERMI 

WHAT IS YOUR GUESS70FT 
FERMI FERMI 

WHAT IS YOUR GUESS70PT 

FERMI FERMI FERMI 

YOU GOT IT! MY WORD IS OPT 





computers \ { 

S K> pin 


BAGELS 


I E Bill 


O.K. I HAVE A WORD. 


WHAT IS YOUR GUESS? 


PICO 


,<y 

•«* 






y 




£ 
& 






* 

9votui of tAe 3 IcHtrs 

in you r is in 

tAe secret word 


One of ■y.ur 3 letters 
is in tAe Secret \jo rj 
4*4 -it’s i2t tXt 


S ime a.i F’sKmi^icj 

it's il, 
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DO YOU WANT INSTRUCTIONS C YES OR NO>YY£S 

This IS I hE game OF hangman. TOJ CrtQSE The 
LANGUAGE THAT YOU WANT TO PLAY IM, AND I ThInK 
OF A WORD IN That LANGUAGE. YOj TRY TO GUESS > ^ETTER 
BY LETTER, What The WORD IS. SIMPLE fwn? 

WHEN I THINK OF A WORD* I WILL PkI-nI A LINE OF 
DASHES WHICH CORRESPONDS TO T n£ WK S£« OF cETTERS In 

THE word. 

IF YOU GIVE UP, TYPE •GIVE*. IF YOU WANT TO UUIT, 
SIMPLY TYPE 'W JIT • • 

A FEW SPECIAL INSTRUCT IONS : 

SPANISH - The • IS COUNTED AS one LETTER, AND The 
-CM- IS COUNTED AS TirO. 

IN WrtAT LANGJAGE WOULD YOU LIKE TO PLAY? 

(ENGLISH, FriLNCti, SPANISH, OR GERMAN ) 

7ENGLISH 



HAVE FUN I I 
THE WORD IS 


YOUR GUESS7A 
WRONG. 


I 

0 


illinium 

THE WORD IS 

YOU HAVE USED A 


YOUR GUESS7E 
RIGHT! 

the word is e 

YOU HAVE USED AE 


THE WORD IS E 

YOU HAVE USED AE I 


YOUR GUESS70 
RI6HT! 

the word is o-o-e 

YOU HAVE USED AEIO 


YOUR SUESS7S 
WR0N6. 


I 

I 

I 

I 

I 

I 

I 


I 

0 

/I 


nmiimn 


i 




‘Me.ij ? you dwt 

evc.Tt TtetT 3- 

C oTrv ^u'ier j- or- 
i\.is o-n*. / 


YOUR GUESS? I 
WRONG. 


I 

0 

I 


cLuyWy re member 

\o\i to 3 -pcnc i Z 

dnS •pa./ptr ? 


minium 
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THE WORD IS 0-0-E 
YOU HAVE USED AEIOS 


YOUR GUESS? Z 
RIGHT! 

THE WORD IS OZO-E 
YOU HAVE USED AEIOSZ 


YOUR SUESS7N 
RIGHT! 

YOU GOT IT! I 

THE WORD WAS OZONE 


1 

0 

1 


lmnnuii iinnimii 




iiiuinmi 


uuimi io ao uumic uou'rc juji 

Hanging Around 


i l 

i o 

1 /IV 

I 


1 


minium 



i 

i 

i 

i 

I 

i 

i 


i 

o 

\/i\ 


iiiiiiiiiiii 


% S&VtXAL F|L6S IN A 

L Aa1<^uA(*C. ( SMNl , SPAN3. | *.rc.') 

So yov CAM HT>€ StvtgAl !_ Evfts 
of DiFFie-UtTy CA. Topics of FoevS. 

*AW A SET - or Fa« - EACrt ser 

HAS A RH^/M.6 PAT-TCRN- AU TWF 

WORDS IN -7Mf F IUt HAvC fyf SAMS 

RH'iwe. Likc HooaJJ) ; FouKDj 

A &OUWP, RF SOU^P, A1 OoNP . . . 

Make a Flc.tr famoos maws, 

Li K£ Lincc>.Nj Kouf AXj CHtR 

K fWMJ/, Ai-fyANDF R., 

Frc. 


^ Use A famous fi^vicrrc (likc 

W H6B.6 TopM C|V*€ %Ko«u>o. } 

For Acc -TrtC WORDS »« A fict. 

HAN$MN wo^’r fttptAT 

A wwtp o*rT>i. m r ar /s 
-fHLS 'W'CC HAKe IT -A C,A»Ah Wnww 
A e,A^e I 

^ AVC A f)c€ of V/OftCS. 

CMDINC-, in -/*/<» ( WW^T/Nt,, 

SNONTIN 6, > PunTiNG,) or - 

( AR&UM.euT > €ST*9USHMe>rT, COMMENT) 


r 

I 

1 

1 

I 

I 

I 


1 

o 

\/I\/ 


IIIIIIIIIIII 


I X 

X 0 

I V/IV/ 

I X 

X 
1 
I 


IIIIIIIIIIII 


* ANYTHING, joo CAN do 
IN £NCiLlSH *»c*/ 

t>o vmtm ?>PAN\SH > 

ETC. 

♦ FILES * FILES * FILES * FILES * FILES * FILES * FILES * FILES * FILES * FILES ♦ FILES * 


l I 

1 0 

1 V/1W 

I I 

1 / 

I 

X 


II 111 X I II III 


ncrci now io rm a nr in Language Pile 



WHICH HANGMAN FILE 7ENGLISH 
ENGLISH DOESN’T EXIST J WHEN 

0PEN-£NGLIS,2 


DONE 
OPEN-ENGLIS#2 
HUN 

rtANGFL 


nr h 


WHICH HANGMAN FILE 7ENGLISH 


svV 

<A C'b A . 0 
\ . 6 1 


cv 


HOW MANY WOHDS 
WOHD # 1 
2 

3 

4 

5 

6 

7 

8 

9 

10 


wohd # 

)r WOHD # 
.O' WOHD # 
WOHD # 
WOHD # 
/OHD # 
<QtiD # 
WOHD # 
WOHD # 


710 

7EV/EHYDAY 

7SOMET IMES 

7WUINTJPLETS 

7ABHACADABHA 

7CAHA VANSEHAI 

7COHNUCOPIA 

7CONUNDHUMS 

7PHOGHAMMING 

? EXACTLY 

70Z0NE 


V 




THAT’S IT FOH ENGLISH 
ANOTHEH HANGMAN FILE ?N0 


THE PROGHAM ENDS# TYPE 

VU TtaTncs 
ca/rv 
to <® 

tenu^ ^ So IsTtgU s?d 
is 5peTIc3 funny 
XBUT# WdXqfl ini 
HZTiJTTm TXi you 
sped 'ifairfan 
7izmts 


X X 

X 0 

I \/l\/ 

1 I 

I / V 
X 
X 


IIIIIIIIIIII 


1 I 

1 0 

I \/iv/ 

1 1 

I v/ \ 

1 

1 


IIIIIIIIIIII 


I I 

I 0 

1 \/I\/ 

I I 

I V/ \/ 
1 
I 


IIIIIIIIIIII 



OONE 



RUN 
MADL1B 


MfiVUS 


i 

> ^ 



HILLO. t«l. IS THE MADLIB -«>««“ T>PI»S. 

SS"S«{"f.? E «S « II X5I“ S c*Is p e b S2“7;uhsee F . 

_ ah* ..rvyxu o damohm 


V 


>/X;v X 


yfe J 


uut/«u nn YOU UAMT 



t\w 5e A ?MP«StE«»72 DEGREES 

'KTr'.^S name^Jid 


weather report 



GOOD EVENING* TV VIEWERS. THIS IS THE EVENING 
eather report FOR earth AND VICINITY. 

HE 72 DEGREES WILL BE WARM. AND THE HUMIDITY IN THE LOW 
a-S. THERE WILL BE A SLIGHT RAIN THAT WILL EAT 
MM tuaT TS ALL. 


SIGNING OFF FOR KLMN TV# THIS IS DAVID 


WHICH DO YOU WANT - CHOOSE OR RANDOM ? RANDOM 



I NEED A WORD FOR SOMETHING BIG 7SKYSCKAPER 
NOW A WORD FOR A LITTLE ONE 7DOGHOUSE 
F, IV S.t! E A SH °«T# SECRET MESSAGE 7 XXX* • • XXX 

WHn T »mifn°SSf5Ao 0R0 F0R ’PREPARE • 7 MAKE READY 
WHO WOULD PREPARE IT 7BUTCHER 

ANOTHE WORD FOR MESSAGE 7CODE 

«vl Ml N A I JJuSSER a fll! 4 M LLED A * * * ?SARGEAWT 

ANOTHER NUMBER 77890 
SOMETHING VERY IMPORTANT 7LIFE 
I NEED AN ACTION WORD 7SWEEP 


COMPUTER TALK 


FOR THE^OGHOUSE^BY^A^ECODIN^OF T HE C0NTR0L SIGNALS 

aPB.«sa? S e 

SUBSTITUTED FOR THE SKYsJS.125 *-IFE IS N UT FLAG * 

OF DATA WHEN SWEEP AND EXTEr£i£ I TcSd^ 1 ° 1 N G A S ° URCE 







WHICH DO YOU WANT - CHOOSE OH RANDOM ? CHOOSE 
WHICH STONY NUMBER (TYPE A 0 TO GET A MENU) ?0 
HERE *S THE MENU l 

1 WEATHER REPORT 

2 STAN TREK INTRODUCTION 

3 COMPUTER TALK 

4 HOW TO <BLANK> YOUR FIRST <BLANK> PROGRAM 

5 HOW TO WIN FRIENDS AND INFLUENCE PEOPLE 

6 ATOP THE NARGO I OS 

WHICH STORY NUMBER (TYPE A 0 TO GET A MENU) ? 2 



I NEED A FAMOUS NAME7SP IRO AGNEW 

WHAT WOULD YOU LIKE TO DO MOST OF ALL ? TRAVEL AROUND THE WORLD 
LEAST OF ALL ?MOW THE GRASS 
GIVE ME A NAME 7ALFNED 
AND A DATE? I 492 

A NAME OF A DISTANT PLACE? ARGENT INA 

the name of your best friend?scott 


STAR TREK INTRODUCTION 



SPACE# THE FINAL FRONTIER 

THESE ARE THE VOYAGES OF THE STARSHIP SPIRO AGNEW 
ITS FIVE-YEAR MISSION J TRAVEL AROUND THE WORLD 
TO SEEK OUT NEW LIFE AND NEW CIVILIZATIONS# 

TO MOW THE GRASS. . . 

TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE . • • 
STAR TREK 

CAPTAIN ALFRED* CAPTAIN 'S LOG# STARDATE 1492 

WE ARE RESPONDING TO A DISTRESS CALL FROM THE 
SCIENTIFIC EXPEDITION TO ARGENTINA 

CAPTAIN ALFRED* LIEUTENANT SCOTT# PLEASE TAKE OVER 
THE HELM WHILE MR. SPOCK AND I BEAM DOWN 
TO INVESTIGATE. 


COMMERCIAL BREAK 


* STORIES * STORIES * STORIES * STORIES * STORIES * STORIES * STORIES * STORIES * STORIES * 


nan now 10 mac up uour own siono 




it a. lishrio of 

7ft adlib, you ft 


foy 6 ^-plus 

2 - opeTv si 


VOVL 

a Zuiii , 

1 1 2000 
2002 

Stt 2020 

in . g uUTl ?ihei00o|g3® 

fKerc scTivh 2050 
/■* / / 20 60 

20 70 
2080 
2090 

2499 

2500 

1 Tit Tiicmitri ||®| 

7000 aiv 2 2520 

&COO-+ g W C2T^ 


3'ire.cl oj sl7nt o7<2 s-A> 


REM *♦♦ STAR TREK **♦ 

REM * FIRST# THE TITLE 

DATA -STAR TREK INTRODUCT ION*' 

REM ♦'SECOND# THE QUERIES FOR INPUT 


L 


be. U.S<ct /or 

your nc. 7 j stor- 
itsf 'ibe.se. art, 

"tbi. oje% 


2530 
2540 
2542 
2550 
2560 
25 70 
2580 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA ' 
DATA 
REM * 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

return 


•»I NEED A FAMOUS NAME** 

**WHAT WOULD YOU LIKE TO DO MOST OF ALL " 

-LEAST OF ALL ” 

-GIVE ME A NAME - 
-AND A DATE- 

-A NAME OF A DISTANT PLACE- 
-THE NAME OF YOUR BEST FRIEND- 
-♦" 

AND THIRD# THE STORY GETS PRINTED OUT 
-SPACE# THE FINAL FRONT IER- 
-THESE ARE THE VOYAGES OF THE STARSHIP 
-ITS FIVE-YEAR MISSION * -)BS 

-TO SEEK OUT NEW LIFE AND NEW Cl VILIZATIONS#- 
-TO "ICS#-. . .- 

-TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE . . 


’JAS 


ri'es? 

~Lfri 

U our* 

J 0 

- o-r — 

C Tu2.7\.q C. 
i :} Le o7<? 

0 He-S . .. 

"irKerrc. 
ire Ws 
of Ttne_. 
7lU.//iT)C/S 

you. 
Can u_re. 


TAB< 1 5 ) J"S TAR 


TREK 


-CAPTAIN -JDSI-I CAPTAIN’S LOG# STARDATE *'IES 


7 7 \ 25 90 

>2600 
2610 

_ 2620 

cL hint tovarJs 
V,7l ser^anriiw Ilia 

ir}\ p t -s' 2670 

_l-t. : 2999 

GjOSC'S sTcipi a?\<3 DAT7) ■5 1 cc TKC. TV 


- WE ARE RESPONDING TO A DISTRESS CALL FROM THE” 
-SCIENTIFIC EXPEDITION TO ")FS 

-CAPTAIN ->D$J-i LIEUTENANT -JGSJ-# PLEASE TAKE OVER 

- THE'HELM WHILE MR. SPOCK AND I BEAM DOWN” 

- TO INVESTIGATE. - 


TAB (5)1 **C OMMERCIAL 


*s. 


BREAK 




Unscramble the WORD 0verti “ 



WO KD 


A WORD GAME 

HOW MANY SECONDS DO YOU NEED TO ANSWERS ^ 

THE SCNANBLED WOKD IS I WHELE „ 

OWEKTIMEII ul . ffL 

THE CONNECT ANSWEN IS I WHEEL 

TOTALS I c „ ,0VEHTIME I 

CONNECT 0 * WNONG v 

anothektyes 


£> 


*«V 






HOW MANY SECONDS DO YOU NEED TO ANSWENT 1 0 

THE SCNANBLED WOND ISt UDLAT OP 

ADULT * 

CORRECT! I m _ 

YOU ANSWERED IN 5 SECONDS 

CONNECT I .WKONG B , OVENTIME I 


ANOTHEN7 YES 


•vS 


W 



HOW MANY SECONDS DO YOU NEED TO ANSWENT8 

THE SCRAMBLED WORD ISt RHTDI 

THIRD 

CORRECT! I 

YOU ANSWERED IN 2 SECONDS 

totals* . 

CORRECT 2 • WRONG 6 » OVERTIME 1 

ANOTHEKTYES 


* 


VS- D 

❖ 

P p ^ 


Q 






W 







G 




\ 


si 


$ 


O 

c 


*T 




F • 


W MANY SECONDS DO YOU NEED TO ANSWER? 5 


HO 

THE SCRAMBLED WORD IS I ARPHG 

GRAPH 

CORRECT! I 

YOU ANSWERED IN A SECONDS 
CORRECT 3 p WR0N6 0 /OVERTIME ! 
ANOTHEK7NO 








* 


<V 



DOGO - EYB !!! 
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Nim is an ancient game in which two players take turns removing objects from piles. A winning strategy involves always moving 
so as to guarantee a win, no matter what the other player does. The games in this chapter are "Nimlike". They are presented in 
such a way that the concepts and techniques developed in one game are useful in understanding the next. 


"nimlike" games 


23 Matches 
Battle of Numbers 

Nim 

Chomp 

Zot 

* H 






f 



WE START WITH A PILE OF 23 MATCHES. 

WE TAKE TURNS. ON EACH TURN WE CAL 
THE ONE WHO HAS TO TAKE THE LAST M/ 

YOU GO FIRST. GOOD LUCK AND MAY THE BEST COMPUTER (HA HA) WIN. 


WE TAKE TURNS ON EACH TURN WE CAN REMOVE 1, 2, OR 3 MATCHES FROM THEpjlt 
TOE ONE WHO HAS TO TAKE THE LAST MATCH LOSES. 


THERE ARE NOW 23 MATCHES. 
HOW MANY DO YOU TAKE? 3 


I TOOK 3 . . . THERE ARE NOW 17 MATCHES. 
HOW MANY DO YOU TAKE? 1 

I TOOK 3 . . . THERE ARE NOW 13 MATCHES. 
HOW MANY DO YOU TAKE? 2 

I TOOK 2 . . • THERE ARE NOW 9 MATCHES. 
HOW MANY DO YOU TAKE? 3 

I TOOK 1 . . . THERE ARE NOW S MATCHES. 
HOW MANY DO YOU TAKE? 1 

I TOOK 3 . . . THERE ARE NOW 1 MATCHES. 
HOW MANY DO YOU TAKE? 1 

I WON!!! BETTER LUCK NEXT TIME. 



Too bad! 1 wonder how I can improve my game. Let's go back and see what happened. 

I TOOK 3 . . . THERE ARE NOW 1 MATCHES. 

HOW MANY DO YOU TAKE? 

Not much 1 can do at this point. 

I TOOK 1 . . . THERE ARE NOW 5 MATCHES. 

HOW MANY DO YOU TAKE? 

Let’s see - I took 1 and he took 3 which left 1. No good! 

Maybe I should have taken 2. But then the computer would take 2 and that would leave 1 - oops. 
Ah, ha - I guess I should have taken 3. But if he takes 1, zap! 

5 matches left but I’m going to lose no matter what L do. Maybe if I had done something else on the 
turn before, I wouldn't have been stuck with 5. 

I TOOK 2 . . . THERE ARE NOW 9 MATCHES. 

HOW MANY DO YOU TAKE? 

If the computer leaves me with 5 matches after his next turn. I've had it. How can I avoid this? 

It would sure be nice if I could leave him with 5 matches but I'd have to take 4 to do it and the 
most I can take is 3. 9 


Well, if I take 1 
if I take 2 
if I take 3 


he takes 3 — > 5 
he takes 2 — > 5 
he takes 1 — > 5 


I’m going to lose no matter what I do even though there are still 9 matches in the pile. 


Where did I go wrong? Am I always going to lose or was there some move I could have made earlier 
so that I wouldn’t be in this fix now? 
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A position is safe or unsafe depending on whether 


or not it guarantees a win for the player who leaves it. 



Back to the game we just played. 

. . . THERE ARE NOW 9 MATCHES. 

HOW MANY DO YOU TAKE? 3 
I TOOK 1 . . . 


. . . THERE ARE NOW 5 MATCHES. 

HOW MANY DO YOU TAKE? 1 
I TOOK 3 . . . 

. . . THERE ARE NOW 1 MATCHES. 



9 is a safe position. Whatever I move changes the position 
to make it unsafe. That is, the computer could beat me. 

I took 3 leaving 6 matches. 6 is an unsafe position. 

The computer changed an unsafe position. 6 , into a 
safe position, 5 . by making th c right move, 1 . If he 
made a wrong move, 2 or 3 , he would have left an 
unsafe position and / could have won - too bad. 

5 is a safe position. Whatever I do will leave an 
unsafe position. 

I took I leaving 4 matches. 4 is an unsafe position. 

He did it again! Changed an unsafe position, 4 , into 
a safe position. 1 . 

It’s all over, folks’! 




I 

f j A safe position is a posil 

t: Notice lhal I S a«#t 


3 




-3 CjHE-y \ 


v - r a position left by a player after his move that guarantees him a win if he plays correctly 

Notice that 1,5, and 9 are safe positions in 23 MATCHES . Any position that is not safe is unsafe. 

2 , 3 , 4 , 6 , 7 , and tt arc unsafe positions. 

Every unsafe position can be made safe by the right move. 

Every safe position is made unsafe by any move. 

Therefore, a winning strategy r is to change every unsafe position you face before you move, into a safe position 
after you have moved. 


u 


c 


3EO £ 




O.K. If 23 is a safe position then I will always lose by moving first. But if 23 fc an unsafe position, 
then I can leave a safe position after my Hist move and win b> changing ev er, unsafe position to a 
safe position on each of my moves. 


Is it safe or unsafe to play with 23 matches 




j 



Aim of 



„ ,■ r* rm I1SCTS (YOU DECIDE HOW MANY). 

WE BEGIN WITH A PILE 01' OBJHC ™ iw 

wl , TAKE TURNS HKMOVING mtUnXlMUM (MOST) ARE THAT wf. Cam 

YOUDIKIDHWIIATTHKM/NgWJ^ljlJJJI) J . MIN ,MUM AND (S THE MAXIMUM, THJjj 

TAKKON U OH 5 OBJECTS I 

ON EACH TURN •• M n TWF I AST OBJECT WINNING OR LOSING? 

™o MORE WHO. «! *'?5 <S ?. TAK,N<i ” 

AND, DO YOU WANT TO 00 HAST. 

HERE WE 00. . GOOD LUCK. 


ffhe ‘inlv rxrrplion i« f| IB | (f 

flip nUffllHT «f o|||P( |« | r /< „ 

//•«« tli*n flip minimum, yim 
mtIBl t *U* wlll»t’» Ifft 


HOW MANY OBJBCTO W THE , 

sisss ass „ 0R LMW „ 

THERE ARK 37 OBJECTS , N THE PILE. 

HOW MANY DO YOU TAKlv 



/'ft - <>n > 7 M /i TCHES explain whai 



inking the Aw/ object I* or '"’ /w ' 



2.1 MATCHES* 

We’ll begin willi 2 3 objects In the pile. 

• The minimum In I . the maximum is 3 
Taking the fast object is losing. 

O.K. Wlmt nre \\\e safe positions/ 

■ Suppose we change the maximum to 4 
Now wlwri are the safe positions/ 

• Let's complicate things. Suppose the 
minimum is 2 ond the maximum is 3. 

Who ( are Ihe safe positions'/ 

How is ihe minimum related to the number 
of safe position*? 

• Ready? Answer these questions again but 
(his lime make Inking the fast object winning 

IxH’s go hack to the example above there are 37 objects in the pile. TTic m a win ? 
minimum is 7. Taking the fast object is losing. Does the decision to go first guarantee y 

Wlin ( will your first move be? 

Suppoae we »l»rl will! on emplv pile and mi each lurn we <«/</ objects to tot pile. Tte * 
may add ts bounded by a minimum and a maximum. The first player fo i xcietl a sp / 

(lie winner (or should lie be the /over?). 

Yup you guessed it. What’s a general formula for determining the safe positions? 

ubii^ 

Here’s a variation suggested by Wally Judd in Games. Tricks, and hizilc\ for a Hand Cali r ts ihe 

hy hymns Start with an empty pile At each lurn you can add 1 . 4 . or 7 to the pile. T e 
llrst playrr who causes Ihe pile to exceed a specified number. Have fun!! 
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STARS IN^ACH PILE) PILES ^ STARS (Y ° U DECIDE H0W MANY PILES AND HOW MANY 

WHEN IT IS YOUR TURN, YOU MAY TAKE AS MANY * s AS YOU LIKE BUT FROM ONE 
PILE ONLY. 

THE PLAYER WHO TAKES THE LAST * WINS. 


FOR EXAMPLE, SUPPOSE THE PILES ARE: 

PILE 1: * * 

PILE 2: * * * 

PILE 3: * * 


TO TAKE THREE * s FROM PILE 2 , YOU MOVE 3,2. 
THAT LEAVES 


PILE 1: ** 

PILE 2: 

PILE 3: * * 


NOW IF I MOVE 2 , 3 (TAKING 2 * s FROM PILE 3 ) 
YOU W/N BY MOVING 2,1 (2 * s FROM PILE 1) M 


HERE WE GO . . . 




HOW MANY PILES? 3 
HOW MANY * s IN PILE 1? 3 
HOW MANY * s IN PILE 2* 5 
HOW MANY *s IN PILE 3? 7 


DO YOU WANT TO GO FIRST ( YES OR NO)? YES 

PILE 1 : * * * 

PILE 2: * * * * * 

PILE 3: ******* 



YOUR MOVE? 3,2 
I MOVE 6.3 

PILE 1: * * * 

PILE 2: * * 
PILE 3: * 

YOUR MOVE? 1 , 3 
I MOVE 1 , 1 









PILE 1: * * 

PILE 2: * * 

PILE 3: 

YOUR MOVE? 2 , 1 
I MOVE 2,2 


I WON. BETTER LUCK NEXT TIME. 



We shall attempt to discover some of the safe and unsafe positions in V JM. [Sate and unsafe positions 
are explained in the pages on 2d M l TCI/ES.) 

Discover is the key word. There is a general formula for safe positions t if you haven't seen it before, 
you could check out Martin Gardner. The Scientific l meriean B> - <>t Mathematical Puzzles and 

Diversions published by Simon &. Schuster). Forget about the formula. That's right — forget about 
the answer. The formula is completely non-intuitive anyway - like would you have ever guessed 
that's what it would be? Folks plaved XIM for a long time before anybody discovered the formula. 

We will start simple and expand our analysis as things get more complicated. Tire point is this - 
education is discovery, not memorizing facts. It is not necessary to afway \ have answers — lot's of 
famous problems in mathematics don't even have answers. Down with dehydrated answers! 

Long live discovery! 
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Wow, wr\p iwdvcil an infinite 
luitnlxr of cam** already — 

NIM » ith one pile »nly *» ul 
■with tin arbitrary number of 
•a in it. Sinee we’ve M)lved 
nit infini tr number of case*, 
wr muat Im* done. riffhtT 
Well. lltal'H another nubjecl . . 


TOE SIMPLEST CASE - ONLY ONE PILE. 
Remember, the object* 'l ***™'* *,££{" ^ 


* and you can take as many from any one pi j e 


iu*yi 1° It 0 * , t v J ’ l,<n Y 


O.K.. so every position 


with only one 


pile left is unsafe. 



NEXT — TWO PILES LEFT. 

9 T some examples yourself before continuing. 0 |C 
What happen* when there are only two P> « • jon fe sa/ , if they are the same size - 0 ,h erwise 

SecfwhaCs happening' If tb« are two pUes ^ ^ of thc MfW size. I can play symmetncaHy and 
it's unsafe. After leav.ng a safe p 
win. Watch. 

pile 1:***** 

PILE 2: ****** 

, niles of different size) into a safe position (two piles of 

I move 3 . 2 ^"^^"/oil’do to one pile. I do the same thing to the other, 
die same size). Now wn«uc 


PILE 1 : ***** 

PILE 2: ***** 

. a 7 Mv symmetric move changes an unsafe position (uneven piles) 

,f you move 2.1 then I move 2.2. My tym 
into a safe position (even piles). 


Kvery uiuafe position can In* 
made safe by lit** rtfihl move. 

By | I . 2 , 3 | we mean J in 
lh<* first pile, 2 in the wcond. 
and 3 in the third. In the -am- 
ple game of MM played, wr 
started with | 3 . 5.7 J . 

k in any positive integer. 



What happen* if k 0 ? 


OVINC ALONG - THREE PILES LEFT. 

discover safe positions by building on information we’ve already .earned, 

w.im'zrrr 

Jit move. 

IV. let’s analyzes// the positions with 3 piles where one of. the piles has only one 
I ( 1 , 3 , k ] we already know about. 

4,5) is safe (after any move the resulting position can be reduced to ( I . 2 . 3 ) or [ k . k |l. 
, 1,4, 10 1 and [ 1 .9,5 1 are unsafe, right (they can be changed to 11.4.51). 

a - | I . 6 , 7 I is safe (can you use the last examples to show why?). Why is | ) . 5 . 6 ] unsaje ? 

' _ so I I 2 3 1 , I 1 . 4 , 5 | . and [1,6,7] are safe. You guessed it - [ I . 8 . 9 | is toa 
;eneral. I I , 2k , 2k+) ] is safe (for any positive integer k) and all others with j piles av,ns ° 


HERE WE GO AGAIN! 

Suppose there arc three piles and 2 is the smallest number left in any of the piles. [ 2 . 3 , k I is 

unsafe — it can be changed to [2,3,1 1 which is safe. What about [ 2 , 4 , k ] 1« ~ 

is unsa/e Since [1,4,5] is safe. But (2,4,6 J is safe - no move makes it safe but after any 
move the resulting piles can be changed to a safe position — check it out. We are building on w a 
we have discovered and each piece we build helps us discover another. How about [ 2 , 5 , k J 
Not [ 2,5,6] since [2,4,61 is safe. Yup — [ 2 , 5 , 7 J is safe. But not [2,6,8] becau 
[2,6.4| is safe. Similarly, [2,7,9] is unsafe because of [ 2 , 7 , 5 ] . 

In general ( 2 . 4k . 4k+2 ] and [ 2 , 4k+l . 4k+3 ] (for any positive integer k) ar e safe. 


MORE. MORE. 

1 3 , 4k , 4k+3 ] and [ 3 , 4k+! , 4k+2 ] are safe. 



WHAT ABOUT FOUR PILES? 

I***T ABOUT UGHT MILLION 




nine 


8,439,216 

thousand two hundred sixteen ■ 
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Now. you might be ready to consider attempting to construct the general case. See the difference 
between giving the answer when NIM is introduced vs. analyzing some special cases first and then 
generalizing ? How do you think the formula was discovered in the first place? (If you’re interested 
Martin Gardner also gives some references for NIM in his book we mentioned.) 


There is a simple modification of strategy in the case where the player to take the last object is the 
loser , instead of the winner. At some point only one pile will have more than one * — you must take 
either all or all but one so as to leave an odd number of one * piles. (Thanks again, M.G.) 


How about some variations that 
combine NIM and THE BATTLE 
OF NUMBERS , like a maximum 
number a player can take from 
one pile (or maybe from P piles)? 


Another nice modification that you can analyze in the same way: Instead of removing from only one 
pile, a player may remove * s from any number of piles not exceeding some designated number, N, 
and as many from each pile as he wants. 



FIGURE 4. 


OH YEAH, BY THE WAY, WE ALMOST FORGOT 


?l 


Here are some operators we’ve made up\ 


• 

k-( Pi 

P-> , ... , P n ] = l kPj , kP 2 , . - . , kP n J for any positive integer k 


Example: 

6.11,2,2,3] = [6, 

12, 12, 18 1 

o 

ip, ,p 2 , 

p„i o [Q,.Q 2 . 

... ,Q m ] - [P,,P 2 , ... ,P n ,Q 1 .Q 2 , ... 


Example: 

| 1 ,2,2,3] 0(5,7 

] = [1,2,2,3,5,71 

* 

ip, ,p 2 . 

... ,P n ] * IQ, ,Q 2 , • 

• - IPl+Q,,P 2 + Q2> • * P n + Qn 


Example: 

(1,2,3| t [ 2,4,6] 

- 13,6,9] 


How is $ defined for 

I e, p 2 Pn ' 


* ( 0 ,. 0 2 0 „ 


r 

when n and m arc different? 

You make up a way which makes sense lo you! 



See what effects these operators have on safe and unsafe positions. Since we just made these up, we 
strongly suspect that this is an unsolved problem. You too can make original contributions to 
mathematics! 
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GOT THE MVNCHIES? 


©aa#%f 

©aa® 

©aa ® i 
©aa ® 


I —A Mnrtin Gardner’s mathematical games department , r 
me game of CHOMP* »» in *' 0 JLt f l hv I)avid Gale at UC Berkeley. We changed the rut,, £>/* 


1 i 1 072 it was invented by David 

American, January 1973. It was u 

from the published version. 


u '«Xe, 


N 


THIS 

CHOMP 


? ra sssssss J “ 1,751 



HERE'S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7 ). 

THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS WIDE, j _ 

«“YK^ow 4 erofSecJokie is a poison square p. theplatb,^ 

CHOMPS THE POISON SQUARE LOSES. 




HERE WE GO . . . 

HOW MANY PLAYERS? 3 
HOW MANY ROWS? 4 
HOW MANY COLUMNS? 5 

1 2 3 4 5 

IP**** 

2 * * * * * 

3 * * * * * 

4 * * * * * 

PLAYER 1 „ „ 

COORDINATES OF CHOMP (ROW, COLUMN)? 3,2 

1 2 3 4 5 

IP**** 

2 * * * * * 

3 * * ••• 

4 * • • * • 



PLAYER 2 

COORDINATES OF CHOMP (ROW, COLUMN)? 2,4 

1 2 3 4 5 
IP**** 

2 * * * • * 

3 * 

4 * 


PLAYER 3 

COORDINATES OF CHOMP (ROW, COLUMN)? 1,3 
1 2 

IP* . • • 

2 * * • 

3 * 

4 * 


PLAYER 1 

COORDINATES OF CHOMP (ROW, COLUMN)? 2,3 
NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE! 

PLAYER 1 

COORDINATES OF CHOMP (ROW, COLUMN)? 2,1 

1 2 
1 P * 


PLAYER 2 

COORDINATES OF CHOMP (ROW, COLUMN)? 1,2 
1 

1 P - 
PLAYER 3 

COORDINATES OF CHOMP (ROW, COLUMN)’ 1 1 
YOU LOSE, PLAYER 3. ' ' 1 ' 1 


I 


I 


HAVE A BYTE.. 


Let's look ;il a few of the simpler itaje positions tor the 2 player game ( The page* on • f MA I ( III V 
explain safe and unsafe positions.) 

12 3 4 

1 P * * * 

2 * 

3 * 

4 * 


Notice that | I , l ) i» 

1 

1 P 

vdiirh in obviously a tuft 
potation to leave. 


Let’s call this position | 4 , 4 ) , It’s safe Just piny symmetrically to the other player, 
In general | k , k | is safe for liny positive integer k. 

Let’s call 
1 2 3 
IP** 

2 ★ * 

[2,3,11 


1 ettrn on 


2 rows 
.I column* 
Ihe main diagonal 



is safe (see why?). 


So is [4,5,1 | which looks like 
1 2 3 4 5 
IP**** 

2 * * 

3 * 

4 * 


Now, look again at the pages on N/M. Notice any similarities? 

Arc there any safe positions when there are more than 2 playerxf 


The loser is the player who takes the last square on the cookie. Can you devise a strategy for the 
reverse game where the winner is the one who chomps last? ;»)Xq • //// .#v/ :wu\ 





x3 


4$ How about chomping a torus, instead of n cookie? 


What about chomping an equilateral triangle by j* 
players who have ec|uilateral-triangular mouths? ^ 


If you specified the minimum and maximum length a player 
^ could chomp, what about chomping on a line? 

(Some folks might call this a continuous battle of nunibc 


/>- 


>w about 3 • dimensional cookies? 
on could use a 3-1) tic-tac-loc board.) 


Your turn to make up some variations on ('HOMP . Don I bite your longue, 




2 of more pl*ye« on. recung-tar cookie- we cdl h2or! 

We inmlc up »" 0,,M ‘ r **”'* 



1 2 3 4 5 


1 * * * 

2 * * * * * 

3 * * 

4 * * * 



Wc don’t know much about ZOT yet. What can you discover.* 

As a further variation, how about limiting the size of a player s zottcr n . 




The games in this chapter are all played on grids. Uurkk players need no extra equipment; Snark and Mugwump players need to 
draw circles (a compass is handy). In all these games, the "computer" has a harder task than the players. 

Grids can be on paper, a table top, the floor (make one big enough to walk on). Try a 
familiarize beginning learners with grids and the coordinate system. Some suggestions are’ 
naming it (by coordinates); "Look for all the points North of 3,7 or South East of 6 4."* 
inside, on. and outside; find all the points that are 4 units from 3,2 and 7.8 units from 8,0. 

Try varying the size and shape of the grids. Invent a game that combines Mugwump and Stars — give a code related to how far your 

QUGSS IS from the* Mnmn/nmn 


checkerboard. Use lead-up games to 
practice choosing an intersection and 
draw a circle and name all the points 


HIDE & SEEK IN 2-D 


Hurkle 

Mugwump 

Snark 


CB£ BURKhC IS fl BBPPV BCflSC 


Hurkle 7 A HurkJe is a happy beast and lives in another galaxy 
on a planet named Ltht that has three moons. Hurkle are 
favorite pets of the gwik , the dominant race of Lirth and . . . 
well, to find out more, read “ The Hurkle is a Happy Beast ” 
in a book called A WAY HOME by Theodore Sturgeon, 
published by Pyramid Publications, 444 Madison Avenue, 

New York, NY 10022. ( Unless they have moved since 
January, 1968.) 



Happy hurkles radiate. 

Scared hurkles go invisible. 

We took a snapshot of a happy 
radiating hurkle, but the click of 
the camera scared him and 



WHAT IS YOUR GUESS?2#7 
GO SOUTHEAST 

VHAT IS YOUR GUESS?5#8 
GO SOUTHEAST 

WHAT IS YOUR GUESS?8#l 
GO NORTH 

WHAT IS YOUR GUESS?8#4 
GO NORTH 

WHAT IS YOUR GUESS?8,6 

YOU FOUND HIM IN 5 GUESSES I t I 
LET'S PLAY AGAIN* 

THE HURKLE IS HIDING - TRY TO FIND HIM! 



WANT THE RULES? YES 

A HURKLE IS HIDING IN A GRID# LIKE THE ONE BELOW. 


WEST 


Follow me to 
grid point 3,1 


9 

8 

7 

6 

5 

4 



This is 5,8 



This is 8,5 

EAST 



SOUTH 


TRY TO GUESS WHERE THE HURKLE IS HIDING* YOU GUESS 
BY TELLING ME THE GRIDPOINT WHERE YOU THINK THAT 
THE HURKLE IS HIDING. HOMEBASE IS POINT 0#0 IN 
THE SOUTHWEST CORNER. YOUR GUESS SHOULD BE A PAIR 
OF WHOLE NUMBERS# SEPARATED BY A COMMA. THE FIRST 
NUMBER TELLS HOW FAR TO THE RIGHT OF HOMEBASE AND 
THE SECOND NUMBER TELLS HOW FAR ABOVE HOMEBASE YOU 
THINK THE HURKLE IS HIDING. FOR EXAMPLE# IF YOU 
THINK THE HURKLE IS 7 TO THE RIGHT AND 5 ABOVE 
HOMEBASE# YOU ENTER 7# 5 AS YOUR GUESS AND THEN 
PRESS THE * RETURN* KEY. AFTER EACH GUESS# I WILL 
TELL YOU THE APPROXIMATE DIRECTION TO GO FOR YOUR 
NEXT GUESS. GOOD LUCK! 


And here is my 
second guess. 

Here is my first guess Whoops. I went NORTHEAST 



VHAT IS YOUR GUESS?7#5 
GO VEST 

VHAT IS YOUR GUESS?3#5 
GO VEST 


0123456789 

SOUTH You circle my third 

guess. Is is SOUTHEAST 
of my second guess? 


VHAT IS YOUR GUESS? 1 #5 
GO VEST 

VHAT IS YOUR GUESS?0#5 


viiat is the best first guess? 


YOU FOUND HIM IN 4 
LET'S PLAY AGAIN. 


GUESSES! I ! 


THE HURKLE IS HIDING - TRY TO FIND HIM! 

VHAT IS YOUR GUESS79# 9 
GO SOUTHWEST 


is 1,Q southvest of 3,3? 

J 1 

viiat direction is Q,0 from 8, <3? 


VHAT IS YOUR GUES S?0#0 
GO NORTHEAST 

VHAT IS YOUR GU£SS?5#5 
GO EAST 

VHAT IS YOUR GUESS? What would you try next? 



viiat 


point is dire north of Z 8 ? 



want the rules? yes 

a MUGWUMP IS HIDING IN A GRID, LIKE THE ONE BELOW. 

9 

8 

7 

6 

5 

4 . 

3 

2 

1 

0 

0123456789 

MUGWUMP WILL BE HIDING AT ONE OF THE GRIDPOINTS. 

YOU TRY TO FIND HIM BY GUESSING HIS GRIDPOINT. 
HOMEBASE IS POINT 0,0 IN THE LOWER LEFTHAND 
CORNER OF THE ENTIRE GRID. YOUR GUESS SHOULD BE 
A PAIR OF WHOLE NUMBERS SEPARATED BY A COMMA. 

THE FIRST NUMBER TELLS HOW FAR To THE RIGHT OF 
HOMEBASE YOU THINK MUGWUMP IS HIDING AND THE 
SECOND NUMBER TELLS HOW FAR ABOVE HOMEBASE YOU 

think mugwump is hiding. 

FOR EXAMPLE, IF YOU THINK MUGWUMP IS 8 TO THE RIGHT 
OF H0ME8ASE AND 3 ABOVE HOMEBASE, YOU ENTER 8,3 
AS YOUR GUESS AND THEN PRESS THE •RETURN* KEY. 

AFTER YOU GUESS, I WILL TELL YOU HOW FAR (IN A DIRECT 
LINE) YOUR GUESS IS FROM WHERE MUGWUMP IS HIDING. 


MUGWUMP IS HIDING. ..TRY TO FIND HIM! I I 

WHAT IS YOUR GUESS ? 6 , 3 

YOU ARE 3 UNITS FROM THE MUGWUMP. 


or 3,3. 


WHAT IS YOUR GUESS76, 6 

YOU ARE 4.2 UNITS FROM THE MUGWUMP. 


WHAT IS YOUR GUESS? 9, 3 

YOU ARE 6 UNITS FROM THE MUGWUMP. 

WHAT IS YOUR GUESS73, 3 

YOU FOUND HIM IN 4 GUESSES I t ! 

LET'S PLAY AGAIN. 


2,2 would be a 
better second 
guess. Why? 


How do you find a 
MUGWUMP? Try 
drawing circles — 
but don't draw them 
on the grid printed 
by the teletypewriter. 
It's not quite "square" 
because the TTY spaces 
10 to the inch horizon- 
tally and 6 to the inch 
vertically. 

So . . . use a grid like 
the one shown here 



OK — we will do one. 



Circle for guess 2 


Circle for guess 1 


Circle for guess 3 


MUGWUMP IS HIDING. ..TRY TO FIND HIM! I ! 

WHAT IS YOUR GU£SS?5,5 

YOU ARE 5 UN ITS. FROM THE MUGWUMP. 

WHAT IS YOUR 6UESS?2,0 

YOU ARE 10.8 UNITS FROM THE MUGWUMP. 


Here is a handy scale to help you mark 
off the radii of your circles. 


4 5 6 7 8 9 

[Estimate the tenths!! 


10 11 12 13 




Snark? Inspiration from The Hunting of 
the Snark by Lewis Carroll. Want to 
know more? Read The Annotated Snark 
by Martin Gardner. 


Annotated Snark by Martin GarcW* 
A Bramhall House book, fr 0r ^ 
Crown Publishers, Inc. 419 p. 
New York NY 10016 


"Just the place for 
a Snark!" the Bellman 
cried. As he landed his 
crew with ease ; 

Supporting each man 
on the top of the tide, By 
finger entwined in his 
hair. 


SN< V 


VANT THE RULES? YES 

A SNA?.* IS HIDING IN A 10 BY 10 GF.ID LIKE THE ONE 
SH0"N BZIO'U 

Y 

9 

8 

7 

6 

5 

4 

3 

2 

I 

0 

0123456789X 

TRY TO CATCH HIK. HERE'S HO” ••• **HSN 1 

THE X# Y COORDINATES Or A QT.IOPOIKT T»J0 

WHAT that kea;;s# ask so::eo*:e!> and ??~*s .he 

XE V . THEN# *'K£N I ASK FOR 'RADIUS'# YOJ i-P- . H- RADIUS 
OF A CIRCLE CENTERED ON THE GP.IDPOINT WtoSS XjY 
COORDINATES YOU J'JCT ENTERED. I '"ILL Tii=.N T-cL .OJ 
WHETHER THE SHARK IS 'INS IDE' YOUR CIRCLE# 'OlTSIDi 
YOUR CIRCLE, OR 'OH' YOU?. CIRCLE* 

III IMPORTANT tl! IF YOU THINK YOU XNOV UKERS HE I? 
HIDING# ENTER 0 (ZERO) AS THE RADIUS* GOOD HUNTING. 





SNARK IS HIDING **• START GUESSING! 

COORDINATES? 5# 5 

PAD I U S ? 4 

SNARK IS INSIDE YOUR CIRCLE 

COORDINATES? S# 5 
RADIU572 

SNARK IS INSIDE YOUR CIRCLE 

COORDINATES? 5# 5 

SHARK* IS ON YOUR CIRCLE 
COORDINATES? 6# S 
»a£k 3 Is OUTSIDE YOUR CIRCLE 

COORDINATES? 5# 6 

RADIUS? 3 

SNARK IS OUTSIDE YOUR CIRCLE 

COORDINATES? 4# 5 

RADIUS70 

YOU CAUGHT HIM IN 6 
GOOD SKO'U 

VWNT TO PLAY AGAlN?YiS 


GUESSES! I ! 


START GUESSING! 


IS HIDING 

inatss?o>o 

S IS OUTSIDE YOUR CIRCLE 

INATES7 0# 9 
5? 7 

IS INSIDE YOUR CIRCLE 
X NATES? 3/ 9 

S?4 

IS OUTSIDE YOUR CIRCLE 
[NATES? 5# 6 

'] l S OUTSIDE YOUR CIPCLE 
[NATES? 6# 8 
IS ON YOUR CIRCLE 


; ON TOUT. CIRCLE 
kTES?6#9 


36 


KT HIM IN 7 GUESSES! II 


.. .V a r. A III? 



This circle has center at 
5,5 and radius = 4. 


SNARK is 
inside this circle 
inside this circle 
on this circle 
so . . . SNAR K must 
be at 6,5 or 5.6 or 
4,5 or 5,4. 


8 9 


Your turn - you draw the circles for the 2nd 
game. But perhaps you would first like to 
copy the grid for future SNAR K hunts. 




These "games" are designs. You select values for the parameters — the computer draws the design. Try to discover bow different 
values affect the designs. 


PATTERN GAMES 


Dangle 

Sunsign 

Biosin 

Mandala 

Life 

Amaze 


fill J i f j-j 

-i .,> 

x * #=. ' 

2r *4 L-l ■ (_ . 

|»4 l|4f »M »JU> 

1A 

+m^L »llo. . r4 »!**** 

I Ml 2i M 

I III 

tj* 


* •' 

'•» ♦ 

R \ 
b 

V V * 

-#• r* 

rn. 

u '• * 

* e$ 

* ’ 5 ^ . 

•u *«■ O. • 

s *3 : . 

* 5 * * 

3 ** ‘ 

-fc to 

^rs* 

«# 


fn*T*« *«-w rc 

rfcrfVC to/ *to*4# - -- 

* 0 * «s«r 114ft 50 «>V ~*I riti* 

*>* 

Afc« T>« S7*-srl?I 

* Ml *W ■» »* 


Welcome 

To... 


Dangling String 



DDavol mo Str^ 






is a JT€ 4 ^ J 
daily fir rc*Wy S77? * ?Z 
, ispttiiRy if i7, T 

jv'A lizrninj to court 


******** 


******** 


********* 


HtfcJE-’s How it l Jokks: 

OLs the. itri Ttg 
you» f A "tries' eo get 

tac/i: to tU center. 

ftu t Ae- t>;ay ove* 

to -fcAe T«.^t ? 
try veiy 7&yd to go 

t^c rii^t- 

^"t’rz y-p 5 

trumej to ge< 2>«?c7t 
And 1 7it_TL 5 1 ^ r~ t 
57ot*/i7ig d cio~n- 2 _s rt 
gtti to tTtC . center- . 

'Prc.-tlijsoM tti 

077 t^e. ct^er s/te. 
2'hd-ui'll star-6 Cxrmjftg 
1 A * 

'T'his one isn’t 

Wild enoua'X -to 
escape fnoTJi -tTj-e^ 

Center. — 7-" 


«**.*.***♦*»**•*••*****»•***♦•*••. 

vLus>m u •" rrt£ 

**»* *r*<* ywJ 

r&+ HI** 

WU> 

3 true. < 1 1 v luu 
<*.* L1I4UC hu> r , 

|«A U*r *1* »IU> 

fl 

«Mt .XU- >'»*« i7 « lT 

* •• i " 

7IS 



5-fiJOf 16 ww{ 


* * ** e* *■**■**»«•«* * v ** ******** 




^ <*U/ » 


T«*1*S AU_* rOL»c5! 






MAR 2 I -APR 20 
APR 21 -KAY 21 
MAY 22-JUU 21 
JUN 22-JUL 23 
JUL 24- AUG 23 
AUG 24-SEP 23 


LIBRA SEP 24-OCT 23 
SCORPIO OCT 24-NOV 22 
SAGITTARIUS NOV 23-DEC 21 
CAPRICORN DEC 22-JAN 20 
AQUARIUS JAN 21 -FEB 19 
PISCES FEB 20-MAR 20 


FIRST NAME T BOB 
MIDDLE NAME 1 ZIMMERMAN 


LAST NAME 
SUN SIGN 


7 DYLAN 
7 GEMINI 


*•* *** 

*** 0 0 *** 
m mm m 

****** 

00 

mmm *00* *** 
*•* 00 *** 
*** •** 
*** *** 
*** 00 *** 
*** * 00 * *** 
00 


*** 0 
*** 



THE PROGRAM ASKS FOR A FIRST * MIDDLE AND L-AST 
NAME. IF YOU DON'T HAVE A MIDDLE NAME TYPE A 
CARRIAGE RETURN. THE PROGRAM ONLY PAYS ATTEN- 
TION TO LETTERS, AND IGNORES ALL OTHER TELE- 
TYPE CHARACTERS. HERE VE GO 


FIRST NAME 7 JANE 

MIDDLE NAME 7 ANN 

LAST NAME 7 VOOD 

SUN SIGN 7 CAPRICORN 


FIRST NAME 
MIDDLE NAME 
LAST NAME 


7 LINCOLN 
7 AQUARIUS 


*0 ** ** ** 0* 
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FIRST NAME ? ORSON 

MIDDLE NAME ? 

LAST NAME ? WELLES 

SUN SIGN ? TAJNJo 

*** * * * * *** 

* 0 00 0 * 

**00* *00** 

* o ** o * 

* * o* *♦ *o * * 

*** * ****** * *** 

*** * ****** + *** 

** 0* * + * o ** 

* o ** o * 

♦*00* *00** 

* o 00 0 * 

*** * * * * *** 
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FIRST NAME ? HEDY 
MIDDLE NAME ? 

LAST NAME 7 LAMARR 

SUN SIGN ? SCORPIO 
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FIRST NAME 7 MARK 
MIDDLE NAME ? 

LAST NAME 
SUN SIGN 


? TWAIN 
? SAGITTARIUS 
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mmm *0 * * 0* * * * 

o* *0 *0*** ** ***0* o* *0 

0 0 *C * ** * 0* o 0 
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0 * 0 * * 0*0 
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0 0 *0 * *♦ * o* 0 o 
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FIRST NAME ? SAMUEL 
MIDDLE NAME ? 

LAST NAME 7 CLEMENS 

SUN SIGN ? SAGITTARIUS 
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A flittrhvlhnt is a theoretical metabolic cycle that is constantly going on inside everyone, starting at birth 
(the beginning of independent life) . To date, three such cycles have been discovered: 


PHYSICAL 



The physical cycle is 23 days long. It was disWvefid by Dr. Willhelm Fliess, a nose 
and throat specialist, when he observed 23 and 28 day cycles in the recurrences of 
pains and swellings. This cycle is said to affect the muscle fibres, and therefore 
physical strength, endurance, and general physical well-being. 




f 


(it-i&l 


^SENSITIVITY 


Thn Mnsitivity cyclo is 28 days long. It is said to be closely related to the nervous 
systnm, nflocting cooporativoness, friendliness, and optimism. On the down side of 
this cyclo, one is most likely to bo irritable, frustrated, and stubborn. 


r 


( 


r' 



COGNITIVE 



The cognitive cycle is 33 days long. It affects the thought processes, the abilities to 
provide fast, accurate answers, to absorb information, and to create. The down side 
of this cycle is probably a good time to review old concepts. 0 



The up side of the ycle is thn discharge period when you are the most able in the areas that th« 

| h ® down *' dn of ,h ® cycl ® '* * WM/waf/i'f period. Neither of these is necessarily good nor 
hint, lint It it a ||0<hI Idea to do the most important things on the up side of the cycle and to rest on tl 


Mm critical day, on the other hand, is definitely a bad day. 
It Is most likely to burn out aro when it is turned on or off. 
im accident are on deys when the cyclos change polarity. 


A good analogy is a light bulb - the times 
The times when you are most likely to face 



P f f P »' r 


A sine wave is what you got whon you graph the function y » sin(x] , It look* like this: 
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HISTORY 
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Each biorhythmic cycle may be represented by a sine wave. When the wave 
peaks, you are on the up side of that cycle. When it troughs, you are on the 
down side. When the wave crosses the 0 or median line, you are having a 
critical day. Points A , B , and C represent critical days. 

You have a triple critical day [when all 3 cycles cross the median] every 
2656.5 days [that's 7 years and 101.5 days]. A good idea would be to stay 
in bed on such days. Every 21252 days [that's 58 years and 82 days) , the 
cycles are in exactly the same position as when you were born. 
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He theorized that the 23 day< 
Some people argued that 


Dr. Willhelm Fliess was the discoverer of the physical and sensitivity cycle 
cycle was a masculine cycle and that the 28 day cycle was a feminine cycle, 
only males were affected by the 23 day cycle, and that only females were affected by the 28 day cycle, 
but due to contradictory evidence, it has now been accepted that each cycle affects both sexes. 



Sigmund Freud, a friend of Fliess, was also very interested in biorhythms, and the biorhythm theory was ~v 
of great importance in developing his concepts of psychoanalysis. -7 v 


pT- . . 

I For more information, refar to 
(JW^by Dr. R.E. Smitfv published 


In the 1920's Alfred Teltscher, an engineer and teacher, observed the 33 day cognitive cycle in high school 
and college students at Innsbruck. » 


Control Data Corp 
8100 34th Ave South 
Minneapolis > Minnesota 6542 
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In 1939 Hans Schwmg made a study of the biorhythm ical aspects of 700 random accidents and 300 deaths 
from the records of the city of Zurich. He found that nearly 60% of the accidents happened on a critical 
day ,or ,he person 'solved - vet only one of every five days [that's 20 %] is a critical day. 
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6EI-MANDAL 

HUN 

HANOAL 

INTRODUCTION ( YES 


^"-1 -typed t\is 

OR NO> 7 YES 


YOU 


DESIGN A MANDALA BY TYPING IN SOME NUMBERS. 


MANUALAS ARE SQUARE PA TTEHNS » THINK OF A LINE T)WT STARTS 
AT T mE MANILA'S CENTER AND LXTENOS STkAIGHT OUT. IMAGINE 
SWINGING IT AS IF If WERE A P IECE OF KO! RE/ *** ' * ilss] YOU'LL 
END TO KEEP IT STRAIGHT. *mEN 1 HE LINE DIPS AND CLIMBS. YOU LL 
MAKE AN INTERESTING SURFACE. 

IF THE LINE ITSELF KJrPLtS WHILE YOU SWING IT# YOUR SURFACE 
WILL BE EVEN MOKC INTEREST ING. 

THIS IS LHAT MAKING MANDALAS IS ALL ABOUT • YOU ♦ CONTROL 
THE RIPPLE# ANO * YOU ♦ CONTROL THE DIPPING. 

HOW MANY RIPPLES FROM TOUR HAND JO ThE ENO? THAT *S CALLEO 
THE RIPPLE FREQUENCY, AND HOW MANY DIPS IN A COMPLETE 
THAT *S A FREQUENCY TOO. 

WHEN * YOUR * MANDALA IS MADE# ThE * NEGATIVE, 

EFFECTS ARE ADOEO - IF ONE IS P0SI ^S? 2^2 AR^POs7t?Ve! 
YOU'LL TEND TO GET A BLANK AREA. BUT I F & OTH _ ARE P OSIT ! VE# 
YOU'LL HAVE LOTS OF S AND # PRINTED - NtGAT I V£ SURFACES 
ARE SHOWN WITH * AND . SYMBOLS. 

OnE MORE THIN6 - YOU CAN MAKE THE RIPPLES AND BI^S HAVE 
DIFFERENT IMPORTANCE. WHEN YOU GIVE YOUR RIPPLE j* 1 

FREOUENC Y # *TYPE A COMMA » AND THEN AN IMPORTANCE JJUNUN. 
WHICHEVER HAS THE LARGER IMPORTANCE NUMBER WILL BE THE STRONGER 

YOUR HANQALAS HAVE A THIRD EFFECT. A COWINATJON OJF 0!PS AND 
RIPPLES. A*.L T *REt EKPECiS ARE ADDED TO GET THE SURFACE. 

ADVICE * UNTIL YOU HAVE A GOOD FEJE F°R DIPS AND *J P f[- ES ' 
USE ZERO <■> FCR YOUR COMBINATION NUMBER. ALSO. USE SMALL 
INTEGERS. LIKE l OR S OR A. 


SIZE OF MANDALA IN INCmES 74 

DIP FREQUENCY A NO importance ?i#I 

RIPPLE FREQUENCY AND iMr ORTANCE ?t.l 

combination importance ?• 
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SIZE OF MANDALA IN INCHES 73 
DIP FREQUENCY AND IMPORTANCE 73.1 
RIPPLE FREQUENCY AND IMPORTANCE ?•# 1 
COMBINATION IMPORTANCE ?G 

HERE IS YOUR MANDALA » 


SS 

ssss ••• 

ssssss 

ssssssss ... 

ssssssssss 
ss ssssssssss . 
ssssssss. 


ss 

... SSSS 

... ssssss 

... ssssssss 
. ssssssssss 
. ssssssssssss 
.ssssssss 


42 


ss 

... SS ... 

. ss 
ssssss 
ssssss 
ssssss 
ssssssssss 


SIZE OF MANDALA IN INCHES 73 

dip frequency and importance 74.1 

RIPPLE FREQUENCY AND IMPORTANCE 70.1 
COMBINATION importance 7» 

HERE IS YOUR MANDALA t 
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DIP FREQUENCY AND IMPORTANCE ?S#l 
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COMBINATION IMPORTANCE 70 
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SUE OF MANOALA IN INCHES 73 
OIF FKKdUCNC Y AND InFOIUANCE 73.1 
KIFFLE FKEJUENCY AND IMFOKiANCE 72.1 
COMBINATION 1 MF 0 NTANCE 71 
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In L I F E , you start with an empty board like 
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directions 











































































































































and put dots in some of the cells : 
4 cells are alive 
at the start 


The next generation will look like this : 


and the next like this : 





Remember that each cell 
has 8 neighbors : 
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Births and deaths happen at the name time 
Mark the cells that are to die. Next, mark 
those that are born •• you can count those 
that are dying. Now you can remove the 
dead ones and pul a mark in the new cells. 

SURVIVALS. Each alive cell with 2 or 3 
live neighbors will survive 
another generation. 


DEATHS. 


If a live cell has more than 
3 neighbors , it dies from 
OVERPOPULATION. 

If it has less than 2 neighbors, 
it dies from isolation. 


BIRTHS. 


o 

i o 
o 1 
10 

0 1 

1 0 
0 1 
10 

1 

10 
0 1 
1 0 
0 1 
10 


Each empty cell with 3 

w * neighbors, no more and no less, 1 t 

f 0 is a birth cell. A mark will appear in it in the j q 
^ t next generation. 

0 * 


o i 


next generation 
£ 0 REMEMBER : Births and Deaths take place 

eimiilranA/Miitltr Hnn't 

0 1 

1 o 


0 1 


*4* CD »♦» 

o o 


Births and Deaths take place ^ ( f 
simultaneously. So don’t count 
a new cell for overpopulation. 0 t 

o 1 o 

0 1 


o *♦. o 

»♦« O 


*♦* 

o o 


Here’s one with a little more GUSTO : 



Generation . 


Generation 3 : 


... and a death 


Generation 5 : 



again, the end ones die 


and now there are none left 
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>XV^ . 
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MM* \ 


MM* i 
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POP- &6 


♦ * 
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C€N* 4 

• • 


POP* 13 


GkN- * 

• 4 


POP- 13 


f 

! 

* 

i 

i 

♦ 
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ou ttve Computer 

Here are four LIFE patterns that we played with on our HP 2000F 
computer, using the program SLIFE . 

77rr CHESHIRE CAT slowly disappears, leaving its grin behind in 
generation fi. It disappears completely in the next generation, leaving 
behind a “ paw print *’ 

The LIGHTWEIGHT SPACESHIP will travel to the right forever. 
Reverse it and it will go off to the left 1 You can also make it go up 
or down, and of course, fly them in squadrons or ha\>e rhem collide 

Its cousin, the GLIDER, moves at a 45° angle, downwards and to the 
right. Unless it collides somewhere ( maybe with another GLIDER;, 
it too will go on forever. 

The FUSE hums from both ends until it is burnt out. What if there's 
an ODD number of cells? Try it and find out / 

*♦* «/» 


Gen- is 


POP- 13 


GEN* 3 


POP- 16 


V* »/♦ «V* *♦* *4* 

NON 

j LIFE 

I NS IKUCT IONS? NO 

WHICH GENEKA7 ION SHALL 7n£ Prt IN 1 IMG STAN! WITH? 4 
. ANO TH£ LAST 6£N£ NATION? 2 tf 
• ALSO# HOW many SHALL I 3KIP73 


en ten pattern* 


j * 


POP- 16 



GEN- 16 


i • •. 

* * 

v • • • • 

J GEN* 20 
♦ 

• * 
i * * 

i • • 

§ ... 

■J. **ENO OF NUN*- ♦ 

♦ 604 4^4 4 ^ 4 I 4 ^4 t Q» GEN- b 

GElMt.NA I ION * u POPULATION - 10 


T *•* 

. ? DONE 

^ GENLNAIION a U POPULATION * 9 


POP* 13 } 

i 

■ 

♦ 

i 

4 


• • • 

GEN- - 


* * 


* 4 

* 4 


Gf* 1 

Poe. , ¥r ^ Hr % ^ 

£dU c«v_ RMtL f- 

% 

>jL 

. (k* ScY <a- 6J-v. 

r t 


GEN* 9 POP- 4 


6EN- 10 POP- 4 


• 4 

• 4 


i 

4 



1 

* 

■ 

i 

* 


••END OF NUN** 

♦V* »■« *4* •>/* *4* •>/♦ 



* GEN- 3 




♦ GEN- 4 POP- 2 

♦ 

i 

4 

> NO NONE LIFE IN GEN&NATION 5 

♦ 

•*END OF NUN** 


i 

* 

$ 

; 

4 

* 


CtN- 20 

• * 


POP- 9 


♦•ENU OF NJN«* 
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life \U>ttS 


to October. 1970, SCIENTIFIC AMHUCA1MW 

interesting LIFE patterns T ' CHESHIRE CAT, 

GLIDER, SPACESHIP, BARBER POLE CHESH 
BLINKER, HARVESTER, FUSE, «n< 


bibliography 

Thi, is where v«u go to find out what booh and 
-Petes can help you further We got all of 

, scifnTIFIC AMERICAN. October and 

N vember 1970) January. February and April IV7t 

Not ember. ^ .■ Ma ,/ I emafical (.antes 

copies have an discoveries are mentioned 








arm sefoize coo go 







litre's not 
muck wecaJisay 
dibout: this otic... 
so.'k/e’?? just 

let it sjoca.lt 

} j-or itself : 


WMAI ArtE YOU* DIMENSIONS?*!,* 


KUN 

AMAZE 


DO YOU (MEED INSIKUCI IONS? YES 


iMlS PKOGKAM WILL PrtlNl OU I FO* YOU A MAZE! 

ALL YOU A*E KEUUIrtZU 1 0 DO IS INPU 1 1 ME DIMENSIONS. 

YJU MAY mA v/t. A MAZE UP 10 20 BY 20 UNITS- BUT NOlHlNG 
dt£Y(JNO 1 HA i . 


EACrt MAZE Is DE FFErtENl, AND MAS ONL Y ONE WAY ImBOUGM 

11. 


WMAI AKE YQUK D IMENS IONS ? 20 * 20 
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The games in this chapter can be played with paper and pencil. QttbicS and Gomoku — have people play against each other for 
awhile, then play together against the computer. A variation is to have 5 players moving in rotation, rather than two teams. 
Each person plays both sides - this method balances differing skills among the players, encourages cooperation instead of 
competition, and is highly instructive. There are no losers. Teaser is a fine game (or a pain), depending on your perspective. 
In Rover, the computer" has to generate the original board and do the bookkeeping. 


BOARD GAMES 


Qubic 5 
Gomoku 
Teaser 
Rover Robot 




your first name? flash 

THIS IS THE GAME OF QUBIC, FLASH. 
DO YOU WANT INSTRUCTIONS? YES 


THE GAME IS TIC-TAC-TOE IN A 4x4x4 CUBE. 
YOU WIN IF YOU GET 4 IN A STRAIGHT LINE. 



A MOVE IS A THREE-DIGIT NUMBER, WITH EACH DIGIT BEING EITHER 1, 2, 3, OR 4. 

THF DIGITS INDICATE THE LEVEL, ROW, AND COLUMN (IN THAT ORDER) OF YOUR MOVE. 


WHEN IT IS YOUR MOVE, SHOULD I PRINT OUT THE BOARD? YES 
YOUR POSITIONS ARE INDICATED BY X’s AND MINE BY O's. 

YOU GET TO PICK A STRATEGY LEVEL BETWEEN 1 AND 5. 

(1 IS THE EASIEST, 5 IS THE HARDEST.) 

WHAT STRATEGY LEVEL, FLASH? 4 


DO YOU WANT TO GO FIRST? NO 
I CLAIM 112 



. O . 





THE INSIDE POOP ON QUBIC5 


Level 1 

Offensive: Pick a random row and continue 
lo play in dial row until blocked. 

Ijtvet 2 

Offensive: Same a* level 1 . 

I defensive: If the player fun a .'Jina-row. Ilirn 
block it 
Level 3 

Offensive: Pick two internee ting row*. Pill 2 
nf|uarc« in cadi row, (lien play (heir internee I ion 
to get 2 aitnuilaneoUH -ion a rowV 
Defensive: Same an level 2. 

b'vet l 

Offensive: Same an Irvrl 3. 

Defensive: (,’lierk if Uiere in a Mpiare that will 
give the player two niniultaneou* 3*in*a*rowV 
If no. Wor k by moving llierr, 

Isvel a 

(Jl OIK written by Hewlett-Packard. 


YOUR MOVE, FLASH? 141 
I CLAIM 113 

And I'm 


. oo . 

X . . . 




YOUR MOVE, FLASH? 41 ] 
1 CLAIM 214 


. OO. 

X . 




X . . 


f 

! 50 


Y OUR MOVE, FLASH? 441 

/" level .‘1 


I CLAIM 314 

C row 1 J 



f column 4 ^ 


. OO. 

• • • 0 ... 0 

X 





YOUR MOVE, FLASH? 112 

THAT SQUARE IS USED - TRY AGAIN. 

YOUR MOVE, FLASH? 222 

FLASH, YOU BEAT ME BEFORE, BUT NO MORE! LOOK: I MOVE TO 114 



YOUR MOVE, FLASH? Ill 
TOO BAD, FLASH. 

JUST AS I SAID, I MOVE TO 414 AND WIN AS FOLLOWS: 114 214 314 414 
FINAL POSITION: 



There are 76 possible 4-in-a-rows on a 4x4x4 cube. Before each move, the program checks along 
all of them to see if either player is about to win or to force a win ( that is, threaten 2 different wins 
at the same time), it’s a lot of bookkeeping to keep track of, but this makes the program a challenge 
to most QUBIC players. 


Some of the positions are more powerful than others ~ that is, there are more possible wins from 
some positions than from others. You might try to generalize the number of wins from each position 
on an n x n x n cube (a win is n-in-a-row). (The Mathematics Teacher . February 1971, pp. 119-122, 
if you get stuck.) 

There is a way to defeat this QUBIC program at the most advanced strategy level (even moving second!). 
Its weakness is in not checking for concentrations of your moves in each of the 2-dimensional planes. 


Here is something to explore: how many moves placed in the same plane does it take to force a win 
there (assuming 1 ) my opponent doesn't have any moves in that plane, and 2) he isn't about to win 
somewhere else)? 

Suppose instead that my opponent has made a single move in some plane - how many moves do I 
have to make in that plane to force a win there? 


We have not yet seen a QUBIC program which checks whether its opponent has enough moves in a 
plane to force a win there. How about trying to design one (after you figure out how many moves 
it takes, of course)? 


A collection of variations on QUBIC are described in The Scientific American Book of Mathematical 
Pnt./es A Diversions, by Martin Gardner, pp 41-4’: a square array of moves on one of the planes 
forming two intersecting rows on a.lx.h.! cube (with limitations on moving in the center position) 
and playing on a four-dimensional hypercube. p 


( P S - 71,0 '‘ W,se SUVS " ar0Und herc have 80ne so far 3S to su S5*st 'hat there is an easv wan for the first 

player but they can’t prove it. What do you think? 





GOMOKU IS A TRADITIONAL JAPANESE GAME PLAYED ON A 19 x 19 HOARD 
THE OBJECT ISTO OCCUPY FIVE ADJACENT POINTS IN A STRAIGHT LINK 
(HORIZONTAL VERTICAL, OR DIAGONAL) ANYWHERE ON THE HOARD 


THIS PROGRAM PLAYS GOMOKU ON A 9 
NUMBER - THE FIRST DIGIT IS THE ROW 


x 9 BOARD. EACH MOVE IS A TWO DIGIT 
AND THE SECOND IS THE COLUMN. 


YOU CAN CHANGE THE CURRENT BOARD-PRINTING OPTION BY ADDING A THIRD DIGIT 
TO THE MOVE NUMBER: 

0 SUPPRESS PRINTING ENTIRELY 

1 PRINT ONLY THE OCCUPIED POINTS 

2 PRINT THE ENTIRE BOARD 

(FOR EXAMPLE, IF YOU MOVE 372 THEN YOUR MOVE IS THE POINT AT ROW 3, 
COLUMN 7 AND THE ENTIRE BOARD WILL BE PRINTED EACH TIME UNTIL YOU 
CHANGE THE PRINT OPTION.) 


DO YOU WANT TO MOVE FIRST? NO 


Initially, the print option is 0. 


Option 2 — print the* entire board. 


+ unoccupied 
Y your moves 
C the computer’s moves 


Option 0 — no printing at all. 


Option I — only the occupied 
points are printed. 


I MOVE TO 55 

WHAT IS YOUR MOVE? 44 
I MOVE TO 54 

WHAT IS YOUR MOVE? 352 

1 MOVE TO 53 

123456789 
1 + + + + + + + + + 

2 + + + + + + + + + 

3++++Y++++ 

4 + + + Y+ + + + + 

5 + + C C C + + + + 

6+ + + + + + + + + 

7 + + + + + + + + + 

8 + + + + + + + + + 

9 + + + + + + + + + 

WHAT IS YOUR MOVE? 520 
I MOVE TO 56 

WHAT IS YOUR MOVE? 571 

1 MOVE TO 46 

123456789 

1 

2 

3 Y 

4 Y C 

5 Y C C C C Y 

6 

7 

8 
9 
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Still option I . A print option 
remains in effort until a 
one is specified. 


WHAT IS YOUR MOVE? 33 
I MOVE TO 36 

123456789 


1 

2 

3 Y Y C 

4 Y C 

5 Y C C C C Y 

6 

7 

8 
9 



Even the original (it) hoard 
was smaller than 1 9 x 19 — 
it has grown over the years. 


WHAT IS YOUR MOVE? 260 
I MOVE TO 76 

WHAT IS YOUR MOVE? 66 
I MOVE TO 65 

WHAT IS YOUR MOVE? 872 

1 MOVE TO 75 

123456789 
1 + + + + + + + + + 

2 + + + + +Y+ + + 

3+ + Y+ YC + + + 

4+++Y+C+++ 

5+YCCCCY++ 

6 + + + + C Y + + + 

7 + + + + CC+ + + 

8 + + + + + + Y+ + 

9 + + + + + + 4 + + 

WHAT IS YOUR MOVE? 850 
I MOVE TO 74 

WHAT IS YOUR MOVE? 74 
POSITION 74 IS ALREADY OCCUPIED 
WHAT IS YOUR MOVE? 73 
I MOVE TO 83 

WHAT IS YOUR MOVE? 92 
I MOVE TO 47 
I WIN THE GAME 

SHOULD I PRINT THE FINAL POSITION? YES 



12 3 4 

5 6 

1 



2 


Y 

3 

Y 

Y C 

4 

Y 

C 

5 

Y C C 

C C 

6 


C Y 

7 

Y C 

C C 


8 C Y Y 

9 Y 

This GOMOKU program will be a challenge for most folks to beat - it is only a get-acquainted-with- 
the-basics-of-Gomoku, however. 

A 9 x 9 board is too small. You get “squeezed” against a side too quickly to develop your forces. 
Formations on a 19x19 board tend to develop in rings (1 “surround” you then you “surround” 
me and so on) and also in apparently disjoint clusters (we play a few moves in this area, then some 
way over there . . . ). And that’s the second problem with a 9x9 board — there's no way over 
there. Every move is too close to each point on the board. The more complex strategies in Gomoku 
involve connecting these seemingly separate formations in bizarre and complicated ways. 

There are two traditional rules that this program doesn't follow. To explain these we introduce 
some useful terms. An open Jour is four-in-a-row with both ends open - that is. on the next turn 
you could move to either end. If you make an open four, you have a sure win (assuming the other 
player isn’t about to win on his next turn). An open three is a formation that can become an 
open four on your next move. So here’s the rule that's different - you can 7 form two open threes 
simultaneously unless you are forced to stop your opponent ‘s four-in-a-row from becoming five. Two 
open threes are a win since the one your opponent doesn't block can become an open four on 
your next turn. 

The other change is more simple to explain - a win is exactly five-in-a-row, not six or seven or 

This program's major weakness is the fact that it evaluates what's happening ( threats, weaknesses, 
“dead” positions) at every board position (all 81 of them) after every move. A “smarter” algorithm 
would be one that updated information after each move, rather than recomputing every thing from 

scratch. 




t 
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IF YOU LIKE BRAIN ««' >' 

:sss™s -a. «u - » 

* UM 

HERE ARE THE RULES: 

. __ . ,. vnll'RI NO I ALLOW! 0 (Of HANOI 
YOU MAY CHANGE ANY 1 TO A 0 YOU Rl NOI A 

A 0 TO A 1 . 

WHEN YOU MOVE TO CHANGE A 1 . THERf ARI SIUI I I I I 

“a A £ R BOX CONTAINING THE CORN! K THEN I ACM 
POSITION IN THE BOX CHANGES SIAM 

MOVING IN THE CENTER 01 AN EDGE 

EACH POSITION ALONG THAT EDGE CHANGES S I A II 

MOVING IN THE CENTER POSI f ION. 

EACH POSITION IN A '+* (PLUS SIGN) CHANGES SIAM 

TRY THE GAME A FEW TIMES AND SEE WHAT HAPPENS ON (Ilf. BOARD 
THE NEW BOARD WILL BE PRINTED AFTER EACH MOVI 

HINT (CHUCKLE): IT IS POSSIBLE TO REACH THE fXMl I ROM EVERY POSI HON 
(EXCEPT ALL O's) WITHIN 11 MOVES, IF YOU CAN FIND IHE RIGHT MOVI 

HERE WE GO . . . THE BOARD IS 
0 1 0 
1 0 1 
0 0 0 
YOUR MOVE? 2,3 
0 1 1 



One theorem nr did \OT use ui 
analyzing 7T. I Silt is one due lo 

Krein and Milman 

Theorem: Lrl K hr <> rnm/«r/ 
rnnm «e I in a Iih utlx runt ft 
fripolnf!iral vft'ior nparr V 
Then K ii the ilntril enavPA 
hull of If * cTlrnniv pnmtx 








2 COMLTL 
305IR 


Tms EMAfrRftM CtfNTA*.'S 

each of t hi ±<P2 3 li 


PoStTiCMS (LXO-U&‘ M& „ . 
ROTATIONS# Rmft.'T «>wV) 





JG7 

E=<6 


Ev piA<oftT)OKi ; EACH Position 

CAM BE CHANfrtD 

XMTO AT LEAST OME 
OF THE PoSlTtoMS 

In the coeomj td 

ITS RI6WT XM CtJEMovE. 
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rover robot needs Y 0U p^^ ™croR A sror S 

EACH SQUARE IS MARKED E TH NEVER LANI 


ROVER MAY START AT ANY s O u ARE 'N ROW 1 . 

THE OBJECT IS TO GET ROVER ROBOT TO ROW 9 . 

YOU MAY CHECK ANY SQUARE TO SEE IF IT IS A_GO> OR A ‘STOP’, 

BUT YOU ONLY GET A LIMITED N ^OWING YOU WHERE ROVER ROBOT 
Z IS IS STEPS' UP TO THE CURRENT ROW SO THAT YOU MAY 

HERE ARE THE COMMANDS AVAILABLE AND WHAT EACH ONE DOES. 

STEP ROVER ROBOT CAN STEP TO ANY SQUARE TOUCHING THE ONE 
IT'S ON - HORIZONTAL, VERTICAL, OR DIAG0N AL 
THE COMPUTER WILL ASK FOR ROVER'S NEW SQUARE WITH 

n/AHl mt I IMM7 


CHECK 


YOU MAY CHECK ANY SQUARE TO SEE IF IT IS A 'GO' OR A 'STOP’. 
THE COMPUTER WILL ASK WHICH SQUARE TO CHECK WITH 


ROW, COLUMN? 


LOOK THE NUMBER OF 'STOPS’ STRAIGHT AHEAD FROM WHERE ROVER 
IS TO ROW 9 AND THE NUMBER OF 'STOPS’ IN THE NEXT ROW 
WILL BE PRINTED. 

YOU MAY ‘LOOK' AS MANY TIMES AS YOU WANT TO. 

MAP DRAW A MAP FROM ROW 1 TO THE ROW THAT ROVER ROBOT 
IS CURRENTLY IN. THE MAP WILL SHOW ROVER’S PATH AND 
EVERY ‘GO’ AND ‘STOP’ IN THESE ROWS. 

YOU GET A LIMITED NUMBER OF MAPS. 

INFO WHERE ROVER ROBOT IS, THE NUMBER OF CHECKS YOU HAVE 
LEFT, AND THE NUMBER OF MAPS LEFT. 

END LEAVE ROVER ROBOT STRANDED IN THE GRID 

WHICH GRID DO YOU WANT - NOVICE, REGULAR, OR EXPERT? NOVICE 


WOULD YOU LIKE A CLUE (YES OR NO)? YES 
HINT: POSITION 1,4 IS GO 


THERE ARE 21 STOPS 

YOU HAVE 15 CHECKS AND 3 MAPS 

GOOD LUCK! 


*? STEP 

ROW, COLUMN? 1 ,4 
GO 

*? LOOK 

THERE ARE 4 STOPS STRAIGHT AHEAD 
THERE ARE 3 STOPS IN ROW 2 

*? CHECK 

ROW, COLUMN? 2,5 
GO 

*? STEP 

ROW, COLUMN? 2,5 
GO 

*7 LOOK 

THERE ARE 3 STOPS STRAIGHT AHEAD 
THERE ARE 3 STOPS IN ROW 3 

*? CHECK 

ROW, COLUMN? 3 ,5 
STOP 

*? CHECK 

ROW, COLUMN? 3,6 
STOP 

*? CHECK 

ROW, COLUMN? 3 ,4 
STOP 


56 


*? MAP 





♦ *sARE ROVER ROBOT’S STEPS 


1 

2 

C O L U M 

3 4 

N S 

5 

6 

7 

8 

STOP 

GO 

GO ♦ 

GO 

GO 

STOP 

GO 

STOP 

GO 

GO STOP 

• 

STOP 

GO 

GO 


*? STEP 

ROW, COLUMN? 1 ,6 
GO 

*? STEP 

ROW, COLUMN? 2,7 
GO 

*? LOOK 

THERE ARE 2 STOPS STRAIGHT AHEAD 
THERE ARE 3 STOPS IN ROW 3 
♦? STEP 

ROW, COLUMN? 2,8 
GO 

*? LOOK 

THERE ARE 1 STOPS STRAIGHT AHEAD 
THERE ARE 3 STOPS IN ROW 3 
*? CHECK 

ROW, COLUMN? 3,8 
GO 

*? STEP 

ROW, COLUMN? 3,8 
GO 

*? INFO 

ROVER ROBOT IS AT 3,8 
YOU HAVE 10 CHECKS LEFT 
YOU HAVE 2 MAPS LEFT 
*? CHECK 

ROW, COLUMN? 4,8 
GO 

... take over.) ROVER robot TS cooajt/a/(, oajIOV // 





that RPB07 

IS SUCH A 
’ DOPE ! 


C M&k) 

\ Hmc : 


\, 




7 

•)>ij 


9 

GO 

GO 
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Explore tree- structures — the computer sets them up for you in Caves J; you design your own in Caves2. Rumpus is p y 
vertices of a dodecahedron. 

These games can be played without a computer, but quite a bit of preparation and bookkeeping is necessary. Discu 
generate the random numbers needed for the set-up and play. 


WELCOME TO THE CAVES 


Caves 1 
Wumpus 
Caves 2 


i 




Rf Welcome 

kp Tc The 
LA Baves^ 



GET -CAVES l 4 
RUN 
CAVES 1 


You type these two lines. 

The computer types the others. 


WELCOME TO THE CAVES 
IS THIS YOUR FIRST VISIT C1=YES* 0-NO)?l 

DO YOU WANT AN INTRODUCTION C 1 =YES* 0*NO)?l 

IMAGINE YOURSELF AN EXPLORER OF THE FAMOUS 
DUZZLEDORF CAVES. YOU'VE BEEN UNDERGROUND 
FOR DAYS * TRIPPING THROUGH THE CAVERNS AND 
TUNNELS. UNFORTUNATELY* YOU'RE LOST* AND 
YOUR FOOD HAS RUN OUT . 

THERE IS ONLY ONE PATH OUT. SEE IF YOU 
CAN FIND IT. 

WHEN I TYPE A ’?’* YOU GIVE ME THE NUMBER 
OF THE CAVERN YOU WANT TO GO TO. LIKE THIS: 


So you’ve decided to visit the CAVES, have you? Come in. 
come in! But remember, there's only one way out ... hope you 
find it! 



WHERE NEXT? 


This is a map I drew when I visited the CAVES. The sideways 
box ul under a cavern tells you it's a DEADEND 

ADVICE: MAKE A MAP AS YOU GO - IN THE HARDER CAVES 

YOU SOMETIMES HAVE TO GO BACK AND TRY ANOTHER 
WAY. GOOD LUCK! 


YOU’RE IN CAVERN 4 1 

#2 #3 #4 ARE "HERE YOU CAN ^0 

"HERE NEXT? 2 f. 

DEADEND 
Tf HERE NEXT? 3 


This is where you take over. 


YOU’RE IN CAVERN 0 3 
4 5 4 6 4 7 4 1 

"HERE NEXT? 5 
DEADEND 

WHERE NEXT? 5- 6 
DEADEND 
"HERE NEXT? 7 

YOU'RE IN CAVERN 4 7 

43 49 #10 #3 

"HERE NEXT? 8 

YOU’RE IN CAVERN 4 6 

41 1 #12 #13 4 7 

WHERE NEXT? I 1 
DEADEND 
"HIRE NEXT? 12 
DEADEND 
"HERE NEXT? 13 


ARE "HERE YOU CaN 


ARE WHERE YOU CAN 


ARE "HERE YOU C«N GO 



is #13 always 
the way out? 
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I ! ! SUNLIGHT !!! 
! ! 1 FRESH AIR ! ! ! 
. . . REPUP.TERS 


"ELL* AT LEAST YOU’RE OUT 

CONGRATULATIONS* INTREPID EXPLORER 
OF THE FEARSOME CAVES. IF YOU "AMT TO 
EXPLORE AGAIN* YOU CAN CHOOSE A HARDER. SE“ 
OF CATES OP. ANOTHER ONE JUST AS JIFF I CULT 

AGAIN <l=YES* 0 *MO > ? 


Some caverns, like *4 or #9, 1 never tried - but they're 
probably DEADENDS 'cause there's only one way out ... 



If you play CAVES1 rvwce. 
will you get the same CAVES? 




* * * * * 



Maps are neat 'cause they show what you've found out 
so far. Like in the map last page, you know caverns #4, 40, 
and #10 were never visited. 

If you were still in # 8, would you go back to visit # 9’ 
Could you find your way back to # 4? 


In CAVES 1, you get three flavors of CAVES -- each is 
bigger than the last. They're called usual, harder, and !!! 


Here's a partial map of a harder flavor I was playing 



CAVERN # 12 


* * 


********************************* 

* 

-« 

How would you get back to # 1 ? * 

ft 


The CAVES don't change - earthquakes don't rumble 
and volcanoes don't erupt while you play. Nor are there miners 
around, digging them up. At least they don’t on my computer... 



♦ft*************************************** 


Are you a SPELUNKER? 

That’s a word for a CAVES explorer . If you are, 
ask yourself, 

* Where would I hide the way out? 

* What different kinds of CAVES would 
I like to see? 




(5 AVES 1 fee more ,h9tl 1 


f bn* *»# awn# m/* you *nd * h ' 1 *"' 1 e4n 
on l<>v playing CAVK3.I luytthti 


I ini mi n 

I'lf k a rUvfu with a frltncl llav« yoiii friend liuffl away 
v> you »'«>» mak* « map bin l>« oitafulf Don't g' 1 * out y«t, 
Whan yrm'M* neat wheie you think OUi' I*, go haok to oavarn 
# I Turn «.fl ilit* whom arul l«i your frland i»v It 


• NEW C1UT 

Make a map but don’t go OUT. Pick a new OUT and return 
to cavtrn # 1 . 

If your friend can now find your new OUT Mon finding 
the old OUT (which ends the game), he wins, and he gets to 
find a now OUT next game for you. 

Now come* the fun. Each time your friend moves, say 
HOT or COLD. 


4 KI NtlMlVl U 

Mak# a table of cavern #n, Hkn this : 


# 1 

, 

2 

1 

4 

3 

ft 

7 

H 

V 

III 

II 

12 

1 l 

14 

15 

l<» 

17 

IH 

IV 

20 

21 

22 

23 

24 

25 

26 

27 

2S 

2V 

30 

31 

# 

































Now (ill the lower boxen with numbers randomly, 
like thin ; 


Mill H 

1 

i 


4 

3 

f* 

7 

H 

«J 

10 

II 

1 ’ 

1 v 

14 

13 

If. 

17 

IK 

IV 

20 

21 

22 

23 

24 

25 

26 

27 

2K 

2 V 

30 

31 

IM»W # 


\ 

r 


1 


5 


4 

7 


H 





















where next? 
you take ovor hen 


Hit n( the computet and have your friond sit away so 
Iio/mIim can't now. your friend plays the game, but YOU 
Interpret with your table. If your friond is in cavern # 7 
and tunnels load to #8, # 9, and # 10 and back up to 

# 3, interpret the envorn # y and say 

You’re in cavern # 5 

# 6, # d, # 7 and# 2 are whoro you can go. 


II your frioml chooses # 2, you still have to type in 
the OLD #, which Ik ... ? 


The .structure of tho C’AVHS doesn’t change, just 
l lu? cuvint #,v 



Oh forgot to introduce myself. I’m Dave of the CAVES 
and I wrote tho games in tho CAVES family See you later on for 
CAVES2, 

Bye! 
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Hunt the WUMPUS 




*****-*** *** ft****-************* ****** *********************** ***< 


«5 


************************* 

If you’re planning to go in and hunt the WUMPUS, then 
you're in for a strange treat. You see, no one has ever seen the 
WUMPUS. Sure, hunters have looked for him. Some have even 
shot him full of arrows. And every day across the country, unfor- 
tunate hunters are eaten by the WUMPUS. 

No one has ever seen the WUMPUS. If you do, please 
write to us and tell us of your experience. Was it frightening, 
pleasant, funny? Is the WUMPUS friendly, lonely, big or small? 

■* 

Drawings and photographs, of course, will be appreciated. 

* 

»*»*»■*»•» » ********»**♦*• ***»*-***♦*♦***»******»***♦********»*♦******•♦***** ****** ********* 


The WUMPUS lives in a CAVE of 20 rooms (called 
caverns in CAVES 1, remember?) and the only pleasant way out 
is to shoot it with one of your arrows - you get 5 to start with. 
But watch out - if you fall into a Bottomless Pit (there are two), 
you lose. 

Two other caverns have swarms of Super Bats. If you 
wander there, unpredictable things will happen - they like to 
fly away with people and drop them elsewhereville, like another 
cavern way over on the other side of the WUMPUS CAVES. 
Makes mapmaking difficult... 


Hey! Forgot to tell you ... to be fair, you’ll get warnings; 
if you are one cavern away from the WUMPUS, you’ll read 

I SMELL A WUMPUS! 

and if you’re one away from the Bats 

3ATS NEARBY! 

but watch out for 
I FEEL A DRAFT 

’cause one false step and you've found 

a Bottomless Pit! 


Be careful when you shoot! An arrow is good for up to 5 
rooms and then you lose it. Make each shot count! Also, when 
you shoot, make sure the rooms you aim at are properly connected. 
If the next room you choose for the arrow s path isn t connect 
(to the last one), then the arrow goes wild. 

You can get shot by your own arrows. Ouch! 

Whenever you shoot an arrow, the WUMPUS wakes up! 

You’ll also wake him up if you stumble into his room. When 
the WUMPUS awakens, he usually moves. And if he raov 
room, CHOMP, you get eaten. 




Good luck, and keep your map up to date. 
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r* *****-**** 


********************** *********************** ••♦**♦**•**** * 

* 
•r 

ATTENTION WUMPUS BUFFS: 

* 

i * When the WUMPUS is one room away, don’t shoot 

l unless you’re sure which room he’s in. Instead, you . 

t can back up a room and then shoot. This way. i . 

{ you miss, at least the WUMPUS will be two rooms 

away when the arrow wakes him up- * 


* Docs the WUMPUS ever hide in a Bottomless Pit 7 

* Is he ever in a room with Superbats? 

* What happens if you shoot an arrow across a 
Bottomless Pit? Anything? 


hunt the vumpus 

I FEEL A draft 
YOU ARE IN ROOM 
TUNNELS LEAD TO 

SHOOT OR MOVE <S-M)?M 
VHERE TO? 1 7 

yyyiiiieeee • • • FtLL IN ? 

HA HA HA - YOU LOSE! 

SAME SET-UP ( Y-N >?N 




HUNT THE VUMPUS 


I FEEL A DRAFT 
YOU ARE IN ROOM 19 

TUNNELS LEAD TO 11 18 

SHOOT OR MOVE CS-M>?M 
VHERE TO? 11 

YOU ARE IN ROOM I 1 

TUNNELS LEAD TO 10 12 19 

SHOOT OR MOVE <S-M)?M 
WHERE TQ?M 
?? 1 2 

YOU ARE IN ROOM 12 

TUNNELS LEAD TO 3 11 13 



SHOOT OR MOVE (S-M)?M 
WHERE TO? 13 

I SMELL A VUMPUS! 

YOU ARE IN ROOM 13 

TUNNELS LEAD TO 1 2 14 20 


HUNT THE VUMPUS 


I FEEL A DRAFT 

YOU ARE IN ROOM 4 

TUNNELS LEAD TO 3 5 14 


SHOOT OR MOVE CS-M)?S 
NO. OF ROOMS ( 1 -5 >? 1 
ROOM # ? 1 4 

AHA! YOU GOT THE WUMPUS! 

HEE HEE HEE - THE VUMPUS • LL GETCHA NEXT TIME!! 
SAME SET-UP (Y-N >?N 


SHOOT OR MOVE <S-M)?M 
VHERE TO? 14 


BATS NEARBY! 

YOU ARE IN ROOM 14 

TUNNELS LEAD TO 4 13 15 

SHOOT OR MOVE (S-M)?M 
VHERE TO? 15 


YOU ARE IN ROOM 15 

TUNNELS LEAD TO 6 14 

SHOOT OR MOVE <S-M)?M 
VHERE TO? 16 

BATS NEARBY! 

YOU ARE IN ROOM 16 

TUNNELS LEAD TO 1 5 17 20 



SHOOT OR MOVE (S-M)?M 
VHERE TO? 17 

ZAP — SUPER BAT SNATCH! ELSEVHEREVILLS FOR YOU! 


I SMELL A VUMPUS! 

I FEEL A DRAFT 

YOU ARE IN ROOM 9 

TUNNELS LEAD TO 8 10 18 

SHOOT OR MOVE CS-M)?M 
VHERE TO? 8 

YYYIIIIEEEE • . . FELL IN PIT 
HA HA HA - YOU LOSE 
SAME SET-UP (Y-N)? 




Here is what the WUMPUS CAVES look like 


^ DODECAHEDRON. That means it has 
lZs des. 12 sides? But the WUMPUS CAVES has 20 rooms. 

9nof^ at M theVerti u eS ” Whcre the corners meet - there are 
20 of them. Now each vertex has 3 edges leading to other vertices. 
Begin to get the picture? Each VERTEX is a room of the CAVES 
and the edges connecting it to others are the TUNNELS. 


To make a DODECAHEDRON, cut this figure along the 
solid lines. Fold along the dotted lines , and scotch tape the edges 
together : 




Thoughts to Think about 



No matter how far you go, 
you must return to where 
you started or at least cross 
your path. 


Pick a room. If I challenge you and 
name another room, could you shoot 
an arrow so it goes there ? Pick a room 
and ask a friend to challenge you. 


If you shoot an arrow, can you aim it 
so you hit yourself? 




You can't go through 
a room with a hazard, 
right ? How would you 
tell if the WUMPUS 
was sleeping soundly, 
surrounded by hazards ? 


do you need to reach each of the other 
rooms? Remember, an arrow can go 
through, at most, 5 rooms at a time. 
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\ 

\ 
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Welcome 

Back 

To The Saves 




I 

I 





Hi! D»v* ol ft. CAVES T* 

the WUMPUS who also lives in CAV 
different 'cause they have loops in them. 

You must be itching to build your own CAVES. And 

that's what CAVES2 is all about. 


This time 1’U start with a map and use CAVES2 to help 
me create the CAVES I want. 

Here it is : 



*********** ******** * 


CAVES 2 

WELCOME TO THE CAVES 

DO YOU WANT AN INTRODUCTION <I*YES, 0=NO)?t 

_ UI c game IS JUST LIKE CAVES l i 
IxcIpT YOU SET UP THE CAVES 

tufm YOU CAN EXPLORE THEM* 

5r ASK A FRIEND TO FIND HIS WAY OUT 

a POOD IDEA IS TO MAKE A MAP 
* G 2SS GO ALONG / SO YOU CAN SEE 

WHAT your caves look like 

rat/ERN HAS a NUMBER OF TUNNELS 
EACH C ^ V ^ N nTHER CAVERNS - 0 TUNNELS 

«£ ssT.:sr- * 
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************************ ** * ** **** * 


YOU'RE IN CAVERN # J 
HOW MANY TUNNELS? 2 
THEY LEAD TO # 2 #3 

YOU'RE IN CAVERN # 2 
HOW MANY TUNNELS? 2 
THEY LEAD TO # 4 #5 

'l'' 


'if 




^ "if 




\ 


V 

</; 






you • re in cavern # 4 

HOW MANY TUNNELS? 2 
THEY LEAD TO # 6 


YOU’RE IN CAVERN # 6 
HOV MANY TUNNELS ? 0 



O old 




/ t 


«\tvo C <VX «-< *v 


-c 

f6; 


\ 

i 7 j 


YOU'RE IN CAVERN # 5 
HOV MANY TUNNELS? 2 
THEY LEAD TO # 8 #9 

YOU'RE IN CAVERN # 8 
HOV MANY TUNNELS ?0 

YOU'RE IN CAVERN # 9 
HOV/ MANY TUNNELS? 0 



YOU'RE IN CAVERN # 3 
HOV MANY TUNNELS? 2 
THEY LEAD TO # 10 #11 

YOU'RE IN CAVERN # 10 
HOV MANY TUNNELS? 2 
THEY LEAD TO # 1 2 #13 

YOU'RE IN CAVERN # 12 
HOV MANY TUNNELS ?0 

YOU'RE IN CAVERN # 13 
HOV MANY TUNNELS ?0 

YOU'RE IN CAVERN # 11 
HOW MANY TUNNELS? 2 
THEY LEAD TO # 14 #15 

YOU'RE IN CAVERN # 14 
HOV MANY TUNNELS? 0 

YOU'RE IN CAVERN # 15 
HOV MANY TUNNELS?! 

THEY LEAD TO # 1 6 

YOU'RE IN CAVERN # 16 
HOW MANY TUNNELS? 0 


THE CAVES ARE COMPLETE EXCEPT FOR ONE SMALL THING 
THEY NEED A ROOM THAT LEADS TO THE OUTSIDE. 

WHICH ROOM # WILL THAT ONE BE? 16 
VHEN YOU'RE READY* TYPE ANY NUMBER 
?99 

YOU'RE IN CAVERN # 1 

#2 #3 ARE WHERE YOU CAN GO 

WHERE NEXT? 



***** ******************* *********** ******** ** ** ****** ************** ********** ** *** ******** ************* *********** 


If you're thinking of building a WUMPUS CAVES, let me 
warn you. CAVES2 will take up to 128 caverns (called rooms 
in WUMPUS) but they can't form loops like 



the way they do in WUMPUS. 


: : 

* Here are some interesting ways to make CAVES. * 

j : 

* * The CAVES on the last page double on each level. How * 

* about tripling on each level? J 


* Find a leaf and look at its veins. Remind you of CAVES? 
Make a map of the pattern and create them as CAVES 
with CAVES2. 

* Find an interesting looking river and get a map of it. See 
how all the tributaries feeding into it look like a CAVES? 


* * Look at the palm of your hand. Can you boo a CAVES 

* structure there? 

« 

* * Get a friend to play with you. Copy your map from your 
l friend’shand and make a CAVES that looks like his hand! 
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A simulation uses a model of a real-life situation. The computer does the complicated bookkeeping - you create the initial 
conditions, manipulate the parameters, and analyze the results. A simulation can be repeated or restarted as often as you want. 

Most of the simulations written so far involve money, war, and politics. [Point is an exception.) Hopefully, we'll be able to design 
non-aggressive simulations. Suggestions would be welcomed — please write. 


BUSINESS & 
SOCIAL SCIENCE 
SIMULATIONS 


Hamurabi 
King 
Civil 2 
Market 
Stock 
Policy 
Polut 


Business Social Science 
Simulations 


is section contains some pure fun-type games that can also be used as serious classroom learning exercises. 
Three of them, CIVIL 2, HAMURABI and KING have been circulating in some form or another for years. 

They have been fixed, patched, and changed by hundreds of high school programmers. The versions we 
include here are the latest we have available. 

STOCK, POLUT, MARKET and POLICY are at the other end of the spectrum. These programs were developed 
y the Huntington Project staff, a National Science Foundation project currently located at the State University 
of New York, Stony Brook. The programs represent a sample of the sophisticated simulations that are available 
from the project. 

The Huntington programs are designed for classroom use. The Huntington project staff recommends that for 
use of their programs it is necessary to obtain a student workbook ($0.30), Teachers’ Guide ($0.30) and a 
Resource Guide ($0.50). These materials make it easy for a teacher with little or no computer expertise to 
use these programs. (Ordering information for Huntington materials is on page 91.) 



BHmURHBi 



l 


oc the 


** hamurabi 

HAMURABI, I BEG TO REPORT THAT LAST YEAR 

0 PEOPLE STARRED AND 5 PEOPLE CAME TO THE CITY 
THE POPULATION IS NOW 100 



>*V r HeNt 00 TMC UE NESTED 3000 BUSHELS AT 3 BUSHELS PER^CRE ^ ^ 

tfATS COM£ FROMl ! RATS DESTROYED 200 BUSHELS LEA'/ INb 

THE CITY OWNS 1000 ACRES OF LAND 
LAND IS WORTH 18 BUSHELS PER ACRE 

HAMURABI • « • 

BUY HOW MANY ACRE570 

%?„%! 'SStiS'fSL « DISTRIBUTE «S EOODT.DOO 

HOW MANY ACRES SHALL WE PLANT? 500 


^ stU '' 6 ? 




WOULQ ANVONt 

co/oe to rnecny 
WH/LE people are 
Oil NS OF STARvATtoi ? 


pEO^ Le 


HAMURABI # l BEG TO REPORT THAT LAST YEAR 

50 PEOPLE STARs/ ED AND 6 PEOPLE CAME TO THE CITY 
THE POPULATION IS NOW 56 

WE HARVESTED 2000 BUSHELS AT A BUSHELS PER ACRE 

RATS DESTROYED 167 BUSHELS LEAVING 3383 BUSHELS IN THE STOREHOUSES 

THE CITY OWNS 1000 ACRES OF LAND 
LAND IS WORTH 18 BUSHELS PER ACRE 


HAMURABI 


PRICE OF L ArJO 
K/ARlGS EACH TOUbJ- 


t 


BUY HOW MANY ACRES? 1 00 
SELL HOW MANY ACRES70 

HOW MANY BUSHELS SHALL WE DISTRIBUTE AS FOOD? 1 400 
HOW MANY ACRES SHALL WE PLANT7900 


IK fAES5*6 e - * • 

~ _ -T <rW|/s/c5 ? HAMURABI! THINK AGAIN - YOU ONLY HAVE 

0L/T* WHAT * 56 p EO p LE , j jqo ACRES# AND 183 BUSHELS IN 


STOREHOUSES 


HOW MANY ACRES SHALL WE PLANT? 500 

HAMURABI! THINK AGAIN - YOU ONLY HAVE 
56 PEOPLE# 1100 ACRES# AND 183 BUSHELS IN STOREHOUSES 

HOW MANY ACRES SHALL WE PLANT7200 


HAMURABI, I BEG TO REPORT THAT LAST YEAR 

0 PEOPLE STARVED AND 10 PEOPLE CAME TO THE CITY 
THE POPULATION IS NOW 66 

WE HARVESTED 600 BUSHELS AT 3 BUSHELS PER ACRE 
RATS DESTROYED 32 BUSHELS LEAVING 651 BUSHELS IN THE STOREHOUSES 





THE CITY OWNS 1100 ACRES OF LAND 
LAND IS WORTH 21 BUSHELS PER ACRE 

HAMURABI . • . 

BUY HOW MANY ACRES70 
SELL HOW MANY ACRES7200 

HOW MANY BUSHELS SHALL WE DISTRIBUTE AS FOOD? 750 
HOW MANY ACRES SHALL WE PLANT? 600 


of The 


HAMURABI# I BEG TO REPORT THAT LAST YEAR 

29 PEOPLE STARVED AND 28 PEOPLE CAME TO THE CITY 
THE POPULATION IS NOW 65 


WE HARVESTED 600 BUSHELS AT 1 BUSHELS PER APR F 

RATS DESTROYED 212 BUSHELS LEAVING 41 89 BUSHELS IN THE STOREHOUSES 


THE CITY OWNS 900 ACRES OF LAND 
LAND IS WORTH 20 BUSHELS PER ACRE 
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You U like KING, h has a logical beginning and end which appeals to most people. If you 
survive your eight year term ...we congratulate you. It ‘s hard to do! 
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$bg betision. &boulb 
you let industry into 
pour clean, peaceful 
country? 

pollution js bouble 
trouble 


_ cftaTS DETIN II# 

ccwgratulationsi ywwww ^"^‘eslono. vour JOB .s 
f\ SMALL COMMUNIST ISLAND 30 BY 70 Ml 
TO DECIDE THE COUNTRY'S FAT r • 

n c EACH COUNTRYMEN MUST HAVE AT^ 
THE SYSTEM IS KA^DS. 

LEAST 1 00 RALLODS/YEAR TO SUH 

YOUR COUNTRY'S INCOME CfMES £ P ^ p £ A ^[TwHI CH MAY BE SOLD 
Ind TAXES. HALF y"\ L rTJonT M D SUPPORT THEI H OWN WORKERS. 
TO FOREIGN INDUSThY WHO IMPORT AN D o 

r , 1100S per so. MILE to plant, 
^rTH^L^lTBl?WEEN AS *D 65 RALLODS PEP SO. MILE 

INDUSTRY WILL BUY LAND FROM TO *0 5^RALLODS 

AND MILL PAY TMrS OF A A jt M UST OWN AT LEAST 2 

INDUSTRY BRINGS TOURIST TRADE. ** *ND INCOME FROM 

MILES before you get any toupis^ 1NDUS try OWNS 

YOUR TOURIST TRADE WILL I NCRkAbt 

26 SO. MILLS OF LAND* „ w!rH IS Mfc ASUPED IN UNITS- 

INDUSTHY ALSO «WWGS ^^^"sPWDING .« WtLCDS PL« MIT 
0P U P0LLUT,0N Y . Vo^STSn.*- TOURIST TRADE **D 

CROP YIELD. a 

W^SitSx^E^SSsir 

TH^ UW UU AMOUNT TO SPIN D ON EDUCATE- 

YOUR GOAL I TO COMPLETE YOUR S YEAR TtKM. 

r? Ann I Ilf.K I 


so. 


&ounb familiar? 
See^amurabi 


01 neto torinble 


X HA \ E C™^ -W "*«« ^RALLODS, SCI 

THIS YEAR INDUSTRY V1LL » 

1. AIM n CURRENTLY COSTS 12 RALLCLS/SU. MILL .0 PL 


MILE 


tinu u/,)Y co, mILFS TO SELL TO INDUSTRY 70 

HOW MANY RALLODS TO DISTRIBUTE TO YOUR C OUUTRYM EX J 750600 
HCV MANY SO. MILES TO PLANT? 1000 
unu MtinH TO SPIND FOR EDUCATX ON 75060 


1 COUN TOYMEN LEFT THE I St. AND. 

YOU HARVEST F.D 1 OOO SO. MILES OF CROPS. 

MAKING 42000 . RALLODS. iniipTDV 

YOU RECIEVED 0 RALLODS FROM TAXES ON INDUSTRY 

YOU HAVE 440 1 2. RALLODS 

505 COUNTRYMEN, AND 2000 SO. MILES OF LAND. 

THIS YEAR INDUSTRY WILL BUY LAND FOR 96 RALLODS/SQ. MILE 
LAND CURRENTLY COSTS 14 RALLODS/SG. MILE TO PLANT 


(grror Jflessage' 



HOW MANY SO. MILES TO SELL TO 1NDUSTRY70 

HOW MANY RALLODS TO DISTRIBUTE TO YOUR COUN TRYM EN ? 50500 
ONLY GOT 44012. RALLODS LEFT I 

HOW MANY RALLODS TO DISTRIBUTE TO YOUR COIN TRYM EN 742000 
HOW MANY SO. MILES TO PLANT? 1000 
► ONLY GOT 2012 RALLODS LEFT! 

YOU CAN AFFORD 143 AND HAVE LABOR FOR 1010 
SO. MILES 

HOW MANY SO. MILES TO PLANT? 143 
HOW MUCH TO SPEND FOR EDUCAT1 ON 7 t 00 
ONLY GOT 10 RALLODS LEFT! 

HOW MUCH TO SPEND FOR EDUCATION? 10 


85 COUN TRYMEN DIED OF STARVATION 
YOU WERE FORCED TO SPEND 765 RALLODS FOR FUNERAL 
9 COUN TKYMEN LEFT THE ISLAND. 

YOU HARVESTED 143 50. MILES OF CROPS. 

MAKING 7 293 RALLODS. 

YOU RECIEVED 0 RALLODS FROM TAXES ON INDUSTRY 


AND HAVE 1000 


QL10 abbs 
^ insult to injury 


Notice bob) tlje 
^ prices barp 


YOU HAVE 6 528 RALLODS 

411 COUNTRYMEN. fND 2000 SO. MILES OF LAND. 

THIS YEAH INDUSTRY WILL. BUY LAND FOR 97 RALLODS/SQ. MILE 
LAND CURRENTLY COSTS 11 RALLODS/SO. MILE TO PLANT 


HOW MANY SO. MILES TO SELL TO INDUSTRY? 178 

HOW MANY RALLODS TO DISTRIBUTE TO YOUR COIW TRYMEN 74 11 00 

ONLY OOT 23794 RALLODS LEFT! 

HOW MANY RALLODS TO DISTRIBUTE TO YOUR COUN TRYM EN 723500 
HCW MANY SQ. MILES TO PLAN T7822 
ONLY GOT 29 4 RALLODS LEFT 1 

YOU CAN AFFORD 26 AND HAVE LABOR FOR 822 AND HAVE 822 SQ. 

HOW MANY SQ. MILES TO PLANT? 2 6 

HOW MUCH TO SPEND FOR EDLCATI ON ? I 

HOW MUCH TO SPEND T 0 COMBAT POLLUTI ON ? I OOO 

ONLY GOT 7 RALLODS LEFT! 

HOW MUCH TO SPEND TO C CM BAT POLLUTI ON 77 

176 COUNTRYMEN DIED OF STARVATION 

^z , o E :jr ,r,CE< the pEopLt <****»*»*> 

YOU HAVE BEEN ASSASINATED. 


&etft in peace 



and HAVE 800 


q iittu start 

YOU HAVE 7097 2. RALLODS 

503 COUNTRYMEN. AN D 2000 so 

THIS year industry ui LL buy land “or ol S 0F LAND - 

L/WP CURRENTLY COSTS RaLLODS^o ! I .^OOS/Sg. MILE 

n 1 1 - ** to plant 

HO y MANY SQ. MILES TO SELL To IN DUStpvoo#* 

HPU many RALLODS TO DISTRIBUTE TO Yofm 

HOV MANY SW. MILES TO PLANT7 1500 C0UJ TRYMEN 750000 

EACH COINTRYMAN CAN ONLY PLANT 2 cq 

Y s ° a U .M C rLES fF0RD 3761 AND Labor 1 for ioos 

HOW MANY SO. MILES TO PLANT780O 
HOW MUCH TO SPEND FOR EDUCATl C)N ? I O no 
H0 V MUCH TO SPEND TO COMBAT P0LLUTIQN7O 

3 COUNTRYMEN DIED OK STARVATION 

YOU WERE FORCED TO SPEND 27 RALLnn* . 

INSUFFICIENT RESOURCES FORCED SALE nr . F ^ERAL EXPENSES 

273 WORKERS CAME TO THE ISLAND AND 
, COUNTRYMEN LEFT THE ISLAND. 

YOU HARVESTED 800 SQ. MILES OF CROPS 
MAKING 45600. RALLODS. 

YOU RECIEVED 8800 RALLODS FROM TAXES ON INDUSTRY 

YOU HAVE 45729. RALLODS 

499 COUNTRYMEN, 273 FOREIGN WORKERS# AND 2108 
SQ. MILES OF LAND. ™ U 2 1 08 

THIS YEAR INDUSTRY WILL BUY LAND FOR 97 RALLODS/SQ mi, c 
LAND CURRENTLY COSTS I A RALLODS/SQ. MIL! TO LE 

POLLUTI CN LEVEL IS 11664 UNITS. 

HOW MANY SQ. MILES TO SELL TO INDUSTRY 70 

HCM MANY RALLODS TO DISTRIBUTE TO YOUR COUNTRYMEN ">50000 

ONLY GOT 45729. RALLODS LEFT! 

HOW MANY RALLODS TO DISTRIBUTE TO YOUR COUNTRYMEN ?4S000 
HOW MANY SQ. MILES TO PL AN T7800 
ONLY GOT 729 RALLODS LEFT! 

YOU CAN AFFORD 52 AND HAVE LABOR FOR 99b AND HAVE 1108 

HOW MANY SQ. MILES TO PL ANT? 52 

HOW MUCH TO SPEND FOR EDUCATl ONTO 

HOW MUCH TO SPEND TO COMBAT POLLUTI 0N70 


tEIjts tirnr 
urll gell to 
foreign intmetri’ 


49 COUNTRYMEN DIED OF STARVATION 

25 COUNTRYMEN DIED FROM EXCESS POLLUTION. 

YOU WERE FORCED TO SPEND 666 RALLODS FOR FUNERAL EXPENSES 
15 COUNTRYMEN LEFT THE ISLAND. 

OF 52 SO. MILES PLANTED# YOU HARVESTED 46 SQ. MILES OF CROPS. 
(DUE TO POLLUTION LEVEL) 

MAKING 1978 RALLODS. 

YOU RECI EV ED- 47 52 RALLODS FROM TAXES ON INDUSTRY 


pollution 


YOU HAVE 1313 RALLODS 

410 COUNTRYMEN# 273 FOREIGN WORKERS# AND 2108 
SQ. MILES OF LAND. 

THIS YEAR INDUSTRY VI LL BUY LAND FOR 95 RALLODS/SQ. MILE 
LAND CURRENTLY COSTS 14 RALLODS/SQ. MILE TO PLANT 
POLLUTI CN LEVEL IS 23328 UNITS. 

HOW MANY SQ. MILES TO SELL TO I NDUSTRY? 1 200 

THINK AGAIN / YOU'VE ONLY 1108 SQ. MILES OF FARM LAND 

(FOREIGN INDUSTRY IS NOT INTERESTED IN FOREST LWD BECAUSE 
OF THE GREATER DEVELOPMENT COST) 

HOW MANY SQ. MILES TO SELL TO INDUSTRY7700 . 

HOW MANY RALLODS TO DISTRIBUTE TO YOUR COUNTRYMEN 
HOW MANY SQ. MILES TO PLANT? 300 
HOW MUCH TO SPEND FOR EDUCATl 0N?O 
HOW MUCH TO SPEND TO COMBAT POLLUTI ON ?6000 

27 COUNTRYMEN DIED FROM EXCESS RAL 

YOU WERE FORCED TO SPEND 243 HA ^ L °p S . 

INSUFFICIENT RESOURCES FORCED SALE 
1522 WORKERS CAME TO THE ISLAND AND 

29 COUNTRYMEN CAME TO THE ISLAND- NUMBER 

THE number of foreign workers has excee V0LTED and^ 

OF COUNTRYMEN. AS A MAJORITY THEY HAVE REVOLTED AN 
TAKEN OVER THE COUNTRY. 

YOU HAVE BEEN ASSASINATED. 



beginning 
...game enbing! 










'I 



A 


WHAT TO DO 
AFTER YOU 
HIT RETURN ' 






Civil % 


A long time ago, a group of teenagers wrote a computer program that simulated 
14 famous battles from the Civil War and allowed the “player" to re-fight these 
battles and, perhaps, change the tide of the war (yes, the Confederacy can win]). 
Always seeking to do better, this version of Civil War recreates the same 14 
battles, but it allows two players to act as generals for each side and fight against 
each other. 

CIVIL 2 is great fun. Whether it truly recreates the battles is for you to decide. 
We know for sure that it will put a little excitement into your history class and 
will capture the fancy of computer game enthusiasts. 




. ********* ***♦»»*»»»» « *»»**»«** ^^»^^HI»^^»^<^^»' ,>,,,t, ** 

a Civil War simulation. To play, t y pe [*] 

V > ' J «ids orfvou^°The obiecVf* f' gures U5ed are based o'ruhr lh ° corriputer asks Remember that all factors are interrelated and that your responses * I 
depends on you! The ob,ect of the game is to Win a, 1*1 u *7 ‘ Ual occurrcnce - Most battles tend to result as they did in the Civil War, but it all . 

Vour choices for defensive strategy are $ “ P ° SSib ' e ' l‘ I 

(1 ) Artillery attack Vour choices for offensive strategy are: 

n! ^ or ‘'[ ,cat ! on against frontal attack 0) Artillery attack 

m raSjbS 1 "" kl "' "“»■»» g 

you may surrender by typing a 4 5 ’ for your strat 4 Encirclement i, 

simulation. But 'O’ brings back exact previous^a^M S t elect a batt,e b V typing a number from 1 to 14 on request. Type any other number to end thcL 
the entries from the previous battle. Are th^rp tw t S,tuatlon allowing you to replay it. Note: A negative FOOD entry causes the program to use I* 

in ere two Generals present? YES 


TH,S TS BATTLE of SECOND BULL hum 

AUG. 2 9 - 3 0 j 18*?. THF fOMwiLn ^ H 

AMD JACKSON I^OVF THF UMinw cn»rrc F ^ DEHATF F0HCfS ,,NDEH LEE 
rnM r I0N F0RoES hack into Washington. 
CONFEDERACY l IN I dm 


men 

MONFY 
IN FLAT ION 


47473 . 

$ 259200. 

19 % 


51 I 5R. 

% 264600. 

I 6 X 


Cn ' I ^nnn HAT£ V "’ CH D ° Vn " «>SH ™ SPENL «>h 

- food ? 99200 

- SALARIES.. *>0 

- ANNUM IT ION? 1 60000 

TIMIOM GFNFR AL---HOV MUCH DO YOU VfSH TO SPEND FOR 

- FOOD *>1 1 A 600 

- SALARIFS..70 

- ANNUM IT ION? 1 50000 

CONFEDERATE NORALE IS HIGH 
UNION NORALE IS HIGH 

CONFEDERATE GENERAL BOTH SIDES ARE ON THE OFFENSIVE 

CONFEDERATE STR ATFG V ?1 
UNION STRATEGY ?2 



be high with do 
payr 


CASUALTIES 
DESFRT IONS 


CONFEDERACY 
l 4000 
P 


UN ION 
17115 
10269 


COMPARED TO T H C ACTOA1. CASUALTIFS AT SECOND BULL RUN 
CONFEDERATE: 140 X OF THE OFUGINhL 
UNION. 122 % OF THE ORIGINAL 

THF. CONFEDERACY WINS SECOND BULL RUN 

WHICH BATTLE. DO YOU WISH TO S I MULATE? 5 

{! 3 T ^.3? TT A F sS«fTHlRN Y Mf S TAKE AY GEN. LEE AT GETTYSBURG 
S THEM ONE OF THE MOST CRUCIAL BATTLES OE THE WAR. 

CONFEDERACY UNION 

MF ^ 64860. 87482. 

MONEY * 30IS00. 4 

INFLATION T * 

iintf miiCH DO YOU WISH to SPEND FOR 
CONFEDERATE GENERAL— 1!"" DO 

- FOOD 

- SALARIES.. 70 

- AMMUN IT IO-N7250000 

UNION GENERAL— HOW MUCH DO Y 0 U WISH TO SPENT 

- FOOD 1 45800 

- SALARIES.. 70 

- AiMNUN ITI0N7- 1 

- ammunition ? 1 50000 

CONFEDERATE MORALE IS H I GH 

mI °? r^E9AL---V0U ARE ON THF OFFENSIVE 
CONFFDFPATF GENERAL 

confederate STRATEGY l 
UNION STPATFGY 74 


check your history 
books -who really 
won 2nd Bull Run? 


eemm ic 

understanding 


CASUALTIES 

DFSFRTIONS 


CONFEDERACY 

24590 
8 


UNION 
2 7203 
1 6321 


PTI ,„ CASUALTIES AT GETTYSBURG 

laJ 'Tof the or/'— 

Its l OF THF OR. 

THE CONFEDERACY WINS GETTYSBURG 

----- Tn SIMULATE? I 

WHICH BATTLE DO YOU W1 


COMPARED TO THF AL _ ORIGINAL 
CONFEDERATE* * nF THE ORIGINAL 
UNION* 




MARKET is a simplified version of those giant business management 
simulation exercises played by graduate business students and executives 
of large corporations. This version is exciting and simple enough to 
entertain 10-year olds who learn from doing it, yet difficult enough to 
challenge a pair of hotly competitive business managers who spent 3 
hours at our computer terminal competing against each other. 

MARKET sets two people (teams, classes or whatever) up in business 
in competition with each other. The product can be bicycles (as 
suggested in the supplemental materials) or any product you wish. 

Each business quarter, the management of each company (the players) 
make decisions regarding production, advertising and price, based 


on the information from the previous quarter’s experience. The 
computer then calculates each firm’s sales, profits cash posttron, etc. 

z l. ».» *™°"« t,"", - 

to run your competition into bankruptcy or reach SI 2 million in 
assets yourself! 

-me market model is complete enough to include warehouse charges 
for carry-forward inventory and interest charges on borrowed money. 

It should be obvious by now, that if you plan to use MARK as a 

serious learning experience you should prepare your students by 
providing some background information about the terms used in the 
simulation (see the teachers guide). 






market Simulates tub - 

SELLING A PROmirr C0MPF:T « T ION BETWEEN TWO COMPANIES 
THE QUANTITY EACH ^‘^ ERENT l «TED BY BRAND ADVERTISING. 
AND ADVERTISING B!IDCET t ij S ' !LLS 15 nEPENDENT " p ON PRICE 
COMPANY GOES B^NKRHP? ; r T ^ GAME ENDS WHEN 0NE 
TOTAL ASSETS. PT 0P R ^ A CHES 12 MILLION IN 


ARE YOU BEGINNING THE 
(TYPE 1 FOR BEGINNING, 


OAME OR CONTINUING 
2 FOR CONTINUING)?! 


UAR^ABL^PROnnrT C0ST = S 250000. / QUARTER 

L PRODUCTION COST = s 20 /UNIT 

A COMPANY 0 ^! ISINR ANn A SELL1N G PRICE OF S50/UNIT 
WARFHOUSF ruL SELL 25000 UN ITS (PRINTED AS 25 

INTFRFST^rwAon^ E F ° R IW ' En TORY« 5 PER CENT 

TE E.ST CHARGE ON BORROWED MONEY® 5 PER CENT 


UNITS AND DOLLARS BELOW ARE IN THOUSANDS 


QUARTER 



PROFIT 

0 

0 


MARKET SHARE 
0 
0 


CASH ON HAND 
5000 
5000 


NUMBER SOLD 
0 
0 


INVENTORY 
1 00 
100 


ASSETS 

7000 

7000 


COMPANY 1 
PRODUCTION LE^L?25 
advertising BUDGET? 10 

UNIT PRICE755 


COMPANY 2 
PRODUCTION LEVEL70 
ADVERTISING BUDGET? 100 
UNIT PRICF7A8 



QUARTER 1 


PROFIT 

371 

536 


MARKET SHARE 
38. 18 
61 . 81 


CASH ON HAND 
5291 
6216 


NUMBER SOLD 
21 
34 


INVENTORY 

104 

66 


ASSETS 

7371 

7536 


COMPANY 1 
PRODUCTION LEVEL? 15 
ADVERTISING BUDGET725 
UNIT PR ICE? 37 


COMPANY 2 
PRODUCTION LEVEL? 45 
ADVERTISING BUDGET 725 
UNIT PRICE?45 



QUARTER 4 

~„ C u nw HAND NUMBER SOLD INVENTORY ASSETS 
profit market share cash oh hand ^ 16 886l 

525 S9.25 33 22 9216 

528 90.74 8776 


< E V LABOR CONTRACT - VARIABLE PRODUCTION COST NOW- S 2, 


COMPANY 1 
PRODUCTION LEVEL725 
ADVERTISING BUDGET. 10 
UNIT PRICE745 


production LEVEL o 
ADVERTISING BUDGET740 
INIT PRICE742 





smarter 5 

CASH ON HAND NUMBER SOLH 
9140 31 

9149 39 


PROFIT MARKET SHARE 
489 44 • 28 

521 55.71 


INVENTORY 

10 

28 


A TRANSPORTATION STRIKE HAS OCCURED, 
MOVE YOUR GOODS TO THE DISTRIBUTORS. 
BEGUN § BUT HOPE OF A SETTLEMENT LOOKS 


AND YOU ARE UNABLE 
NEGOTIATIONS have 
DIM. 


TO 


ASSETS 

9350 

9737 



COMPANY I 
PRODUCTION LEVEL? 2 5 
ADVERTISING BUDGET? 15 
UNIT PRICE750 


COMPANY 2 
PRODUCTION LEVEL? 10 
ADVERTISING BUDGET? 10 
UNIT PRICE742 


QUARTER 6 


PROFIT 

-302 

-300 


MARKET SHARE 
0 
0 



CASH ON HAND 
8313 
8639 


NUMBER SOLD 
0 
0 


inventory 

35 

38 


TRANSPORTATION STRIKE SETTLED. NORMAL DELIVERIES RESUMED 


ASSETS 

9048 

9437 


QUARTER 9 


PROFIT 

483 

450 


MARKET SHARE 

59.09 

40.9 


CASH ON HAND 
9789 
1 0740 


NUMBER SOLD 
52 
36 


INVENTORY 

31 

4 


COMPANY 1 HAS BEEN THE VICTIM OF EMBEZZLEMENT BY THE 

VICE PRESIDENT OF THE COMPANY. YOUR CASH ON HAND IS NO 


ASSETS 

10471 

10828 


9589 



COMPANY 1 
PRODUCTION LEVEL?! 5 
ADVERTISING BUDGET?50 
UNIT PRICE739 


COMPANY 2 
PRODUCTION LEVEL745 
ADVERTISING BUDGET?35 
UNIT PRICF740 


QUARTER 1 3 


PROFIT MARKET SHARE 
365 48.78 

425 51.21 


CASH ON HAND NUMBER SOLD 
11266 40 

11702 42 


INVENTORY 

0 

3 


THE PRESIDENT HAS JUST IMPOSED A WAGE-PRICE FREEZE ON THE 
ECONOMY, AND YOU MAY NOT RAISE THE PRICE OF YOUR PRODUCT 
OVER THE NEXT 2 QUARTERS. 



COMPANY I 
PRODUCTION LEVEL740 
ADVERTISING BUDGET740 
UNIT PRICE738 


COMPANY 2 
PRODUCTION LEVFL745 
ADVERTISING BUDGET735 
UNIT PRICE740 


QUARTER 14 


PROFIT 

310 

440 


MARKET SHARE 
48. 1 9 
51 .8 


CASH ON HAND 
1 1576 
1 20 96 


NUMBER SOLD 
40 
43 


INVENTORY ASSETS 
0 11576 

5 12211 


C OMPANY 


2 


******************** 

YOU HAVE REACHED 12 


MILLION AND WON 





J 






STOCK gives you a chance to try your hand at 
making money in the Stock Market without 
taking any risk. It was originally developed as 
a simulation for use in Business Education, 

Social Studies and Economics classes. As such, 
it is an excellent tool to teach students how the 
market works. 

No knowledge of the stock market is necessary 
to use this program so it is also effective as a 
fun game. Young and old alike enjoy this game, 
competing to see who can make the most money. 
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THE STOCK hARKF.T 
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O )?1 


..unflHAM PI.AYP THR 5tnGK MARKET. YOU 
i Vo 7000 AMP PAY RHV OR SELL STOCKS. THE 

Owiinl lB li . oa oniikil 


WILL. 
STOCK 
MO DEI* 


144 »% 


HE OI' 7 RM 
PRICES WILL 

SSS-™ pr'rFMRPATEP RANPOHLY AM.) THEREFORE THIS MODEL DORS NOT 
oStSm, ncuurcrMT FXACTLY WHAT HAPPEN? ON THE EXCHANGE. A TABLE 

SSS 63 Vlable ETnrHS, their prices, and the number of shares 

ls!r#?M your portfolio win pe printed, following this, the 

rjs«i UITIAI? OF EACH STOCK WILL BE PRINTED WITH A QUESTION 
here YOU INDICATE a TRANSACTION. TO BUY A STOCK 
Sa*^c.„. l M. TO cm A STOCK TYPE -NNM, WHERE NNN IS THE 
0^"^? art, n c charf.^. A hhokepagf, ff.e uf \X will BE CHAKGF.n 
gg Sp jl N"MPE M ” ArTI0Nfi . NOTE THAT IF A STOCK'S DALUE DROPS 

gj Z 7 FP 0 IT MAY REBOUND TO 
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WAY WAtJJ TO CHAMO-e THfSf NA/ACS TO 0 6 /rtORf CO/STTEAlPORARy 


ST °^K INITIALS 

I NT. BALL 1ST in MISSILES IBM 

»F.n CBO^S OF AMERICA RCA 

LICHTENSTEIN^ BUMRAP A JOKE LRJ 

AMERICAN BANKRUPT CO. ABC 

CENSORED BOOKS STORE CBS 

1 

NEW YORK STOCK EXCRANOF A'/ERAOF? 1PP.7 
TOTAL STOCK ASSETS ARE $ 0 

total cash assets are % innoo 
total, assets are % innoo w 


price/share 

116.75 

89.25 
1 55.5 

145.75 

1 06.25 


WHAT IS YOHR TRANSACTION IN 

IBM? IO 

RCA ?0 

LB,!?0 

ABC? 00 

CBS? 20 




IS SOM6TH/MJ* 
UKt?" THE DOW- 
OOM6S AVERAGE. 


fovR 

flVAAtClAL 

STATEMEtJT, 


********** END OF DAY'S TRA D 1 NG 


STOCK 

PRICE/SHARE 

HOLDINGS 

VALUE 

NET Cl 

IBM 

1 12.25 

10 

1122.5 

-4.5 

RCA 

84.75 

0 

0 

-4.5 

LBJ 

152 

0 

0 

-3-5 

ABC 

141.5 

30 

4245 

-4.25 

CBS 

104.5 

20 

20 90 

-1.75 


AD oa y 


NEW YORK STOCK EXCHANGE AVERAGE: 119 

TOTAL STOCK ASSETS ARE % 7457.5 
TOTAL CASH ASSETS ARE * 2258.35 
TOTAL. ASSETS ARE % 9715.85 

DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0 ) *> 1 

WHAT IS YOUR TRANSACTION IN 

I BM?0 

RCA?20 

LBc/?0 

ABC?0 

CRS?0 


********** END OF DAY'S TRADING 


NET CHANGE: -3.7 


Bowmarlns 121 ll'r+ «k 
»owne.20 4 S^+ U 

BowVall.10 20 221-,+ '4 
BradRagan 24 9’.c+ u 

BradfCmSy IB 13^k 

BranifAl-wt 7 12'i+ V. 
BrascanAl 94 17H+U 

STOCK 

I BM 

price/share 

1 07 

HOLDINGS 

10 

value 

NET CHANGE 

BraunEn.52 17 15V + sfc 
BretxeCorp 1 4ii— lb 
Br*wtr.40 9 1 7 

Brown Cowl a* y.i 

BrwnF A.52 2 14Vk | Vj 

BrWRP B.52 6 !4'4+ 

BrwnF pi. 40 S 5'-»- 'X 

1070 

-5.25 

RCA 

83 

20 

1 660 

-1.75 
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, .u- r _ m wi „, computer students as an example of a program which can 

designers) to make i, more reahstic. Some of the 

improvements we’ve seen implemented include 

A stock average that is weighted to include some stocks and exclude others. 

Participation by two or more players or teams. 

oftWK orice changes. Large buy pressure on one 

atTJSU higher whi,e : he z e pressure on ano,her stock 

wm have little or no affect. Same with selhng. 

Random events that affect some stocks and not others similar to the events 
found in MARKET. 
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POLICY 



^ w0 uld you and your students like to take 
ck at managing the American Economy? 

a ** yo u could do a better Job than tlle ad ' 

11111 stration in Washington at combatting 
Elation?; lowering unemployment?: stabilizing 
te Consumer Price Index? ; or decreasing the 
National Crime rate? POLICY gives the chance 
tr y your hand at economic management. At 
|jje same time it will teach your students some 
fundamental economics, let them evaluate 
economic policies and involve them in an 
exciting role-playing activity. POLICY also 
concerns itself with socio-economic problems 
such as the high school drop-out rate, air pol- 
lution, and poverty. It is a good socio-economic 
m0 del of the United States, apparently designed 
and programmed with plenty of thought and 
skill* 

y e will not attempt to tell you everything about 
this simulation. You really need the supplemental 
materials mentioned in the introduction to this 
chapter. These pages will give you a good idea 
of what POLICY is all about. 



I.S. economy 


Vvou) 
topVavi 

Take a group, a class and divide them into six 
groups. We found in a class of SO it was best 
to run two complete simulations at once! Each 
group can contain 2-3, though it can be done 
with groups of 5 or 6 as well. How the group 
divides is up to you. We mixed our groups as 
much as possible. Assign each group one of 
these roles: BUSINESS, LABOR, CIVIL RIGHTS, 
THE MILITARY, INTERNATIONALIST, 
NATIONALISTS. We randomly assigned roles 
so that students would be encouraged to play 
a role they were not familiar with. The first 
assignment should be for each group to describe 
itself, the feelings of the group (role) and a 
general class discussion about how each group 
should “behave.” The general topic of interest 
groups and pressure groups and their role in 
our government is a good topic to conclude 
this part of the activity. 

Depending on the economic literacy of your 
groups, you will find it necessary to discuss the 
18 Socio-economic indicators used in the model, 
these indicators are: 


Gross National Product 
US. Federal Budget 
US. Military Budget 
US. Birthrate 
Foreign Aid 

Business Profits before taxes 

Business expenditure for new plant and equipment 

Annual Productivity Increase 

Average Weekly Earnings (Industrial Workers) 

Unemployment Rate (White) 

N‘gh School Dropout Rate 
Unemployment Rate (Black) 

trcons below the poverty level (Black) (%) 

Consumer Price Index 

^nual Emissions of five major air pollutants 
^ ,io na! Crime Rate (offenses per 100,000 POP-) 
■tional Infant Mortality' Rate (deaths per 1000, >ir 
•S Military Strength compared to the U-S.S.R- 

(Complete explanation of each comes in the student 
*° r kbook. ) 


O 


The Beauty of this simulation is 
that the computer is in the back- 
ground. The excitement is in what 
happens as the students interact 
in their roles. 


Your discussion might include how each role- 
group will be concerned about each of the 
indicators. 

Once the groups are familiar with the 18 Socio- 
economic indicators, they need to be introduced 
to the 14 socioeconomic policies they will be 
asked to “vote on.” These 14 policies are the 
real guts of this simulation. We can 7 list them 
all but as you read these few. think how each 
group will respond to them . Here are 5 of the 
14 policies. 


*** The maximum corporate income tax rate should 
be reduced from 48% to 40%. Tins tax reduction 
would result in a dramatic increase in corporate profits. 

In addition to benefiting the stockholders, this would 
increase business investment in plant and equipment, 
promote productivity and generally expand the economy. 


***The federal government should provide clinics 
throughout the United States to give free birth control 
information. This proposal is made with the expecta- 
tion that over the short run it would lower the infant 
mortality rate and the birth rate and. over the long run. 
lessen poverty and pollution. 


*** The United States should increase its spending on 
space programs by S2 billion. While designed to speed 
up our exploration of space, this proposal would be 
especially beneficial to the Aerospace industry and 
would receive the wholehearted support of the military. 
Unless accompanied by a decrease in some other area 
of the federal budget, it would tend to increase employ- 
ment opportunities and stimulate the economy. 



*** The federal government should increase the appro- 
priations for the FBI by 50%. In an effort to combat 
the grow ing crime rate, many have advocated an ex- 
pansion of the Federal Bureau of Investigation. 



*** The federal government should spend SI 1 billion 
to eliminate extreme poverty through direct subsidies 
to the poor. This would provide a most direct and 
immediate attack on poverty . It should significantly 
improve living conditions for the poor in a number 
of different ways. It should also stimulate the econ- 
omy and, perhaps be somewhat inflationary'. 




u UN starts you off with 

The first computer KL ioeco „omic 

the beginning figures for eact 

indicator (shown below). 




,tn> e 


far 


SOCIOECONOMIC INDICATORS 

101 Gross National Product 

102 U.S. Federal Budget 

103 U.S. Military Budget 

104 U.S. Birthrate 

105 Foreign Aid 

106 Business Profits before taxes 

107 Business expenditure for new plant and equipment 

108 Annual Productivity Increase 

10*> Average Weekly Earnings (Industrial Workers) 

1 10 Unemployment Rate (White) 

1 1 1 High School Dropout Rate 

112 Unemployment Rate (Black) 

113 Persons below the poverty level (Black) (%) 

1 14 Consumer Price Index 

115 Annual Emissions of five major air pollutants 

116 National Crime Rate (offenses per 100.000 pop.) 

117 National Infant Mortality Rate (deaths per 1000 live births) 

1 18 U.S. Military Strength compared to the U.S.S.R- 


Cot 






VO 1 






INITIAL Art 0UNT5 1 


indicator 
101 
102 
103 
1 04 

105 

106 

107 

108 

109 

110 
111 
1 12 
113 
1 1 A 

115 

116 

117 

118 


currently 
9 7 6.5 
197 
80 
18.2 
3 

82 
54 
3 

140 
4.5 
25 
8.2 
30 

1 16.3 
142 
5568 
20 
0 


bepx 001 ® 


Now you know the ground rules and your 
students have sufficient background to play. 
Each team is given 100 points (you can vary 
this) and is told to vote points on those policies 
it wants passed. It takes more than 100 points 
(you can vary this) to pass a policy which 
makes it essential for different groups to inter- 
act .. . “you put 20 points on number 4 and 
we’ll put 30 points on number 6.” The team 
interplay is exciting to witness. You will find 
it necessary to remind your groups to stay in 
their “role. ” 


Each team submits their “votes' to the in- 
structor or computer operator. The data is 
entered and the computer tells you which 
policies passed and prints new figures for each 
of the 1 8 indicators (assume a time period of 
one year). Each team should review what 
happened to the policies it was concerned with 
and evaluate the status of indicators that they 
wanted to see changed. Then each team gets 
100 more points and the process is repeated 
as many times as you would like. 


iUC ^ N0 


PO' 


SOCIOECONOMIC INDICATORS 

101 Gross National Product 

102 U.S. Federal Budget 

103 U.S. Military Budget 

104 VS. Birthrate 

105 Foreign Aid 

106 Business Profits before taxes 

107 Business expenditure for new plant and equipment 

108 Annual Productivity Increase 

109 Average Weekly Earnings (Industrial Workers) 

1 10 Unemployment Rate (White) N 

111 High School Dropout Rate 

112 Unemployment Rate (Black) 

113 Persons below the poverty level (BlackX%) 

1 14 Consumer Price Index 

1 1 5 Annual Emissions of five major air pollutants 

116 National Crime Rate (offenses per 100.000 pop.) 

I,? Na tional Infant Mortality Rate (deaths per 1000 live births) 
, 18 U.S. Military Strength compared to the U.S.S.R. 


g PASSED'- 


PASSED 

DID or 

t 8 

PERIOD l 




INDICATOR 

CURRENTLY 

INCREASE 

pct. ino< 

101 


1000.5 

24 

2. 45 

102 


208 

11 

5.58 

103 


79.2 

-.81 

-1.02 

104 


18.5 

• 29 

1.59 

105 


2.7 

-.31 

-10.34 

106 


35 

3 

3. 65 

107 


54 

0 

0 

108 


3.03 

• 03 

1 

109 


140 

0 

0 

no 


4.5 

0 

0 

111 


24.95 

-.05 

-.2 

112 


8.2 

0 

0 

113 


29.9 

1 

-.34 

114 


120.95 

4.65 

3.99 

115 


156.19 

14. 19 

9.99 

116 


5068 

-500 

-8.98 

117 


18 

-2 

-10 

118 

New Figures 

0 

0 -10 

Some changes are built in- 
to the model regardless of 
which policies pass. 
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SoM£ SUOGE.STTVONS 
PUAS COHTGABUTlONS, 


BASED ON N.V Ou)N £?<P£E.\ENCe 
OTV\eG.S 


<^ e * * ^ oF 

2,. Make; av a u\(££.-n\R one <SAJO<J 0 <A , so 

~TWe. £on\Vut&£_ cxjct Put se.Nse -to the 

SsSM^uS^'^s* vt AFtec - 


5 - FOUND) HOO POINTS TO SSE. "TOO MUCH . 

C-HANSe - rHe. "PCOSCAM. o NSTC-UOT ONS !NTH£ 
"T&ACME.US.' Grfi-ioe.^ To ©O OC. SO PO ‘ NTS. . 



J\. Smau. <3t«3UPS ARE MOE<= HXNTO VlOEiL VMTH. 

5. T>oN'T VMeNHON O.HEAT tNQ- . .. "BUT V4ATCLH FT 
HAPPEN . 

u -THG e.N-r\Ge simulation QAn "Be 'CONE. 

\ N 5 OG-io CLASS Periods. 

t A Ne VEA<2- MV STUDENTS VlEBE "BO^&O 

^ goaHDS op TA-AV. VJe. CHANC^E-D 

■ROLES TO T:H\S OEV4 L\ST — CDOSQG 
&AOU2ALS . VOOMENS. UtSEKATVOtN, 

SOUTHERN DEMOCRATS, REAGAN REPU.&U- 
GAns NeTERANS OF FORB\GH \a/AR.S, 
EOaCATvOTA/sC-VENTVST. dV\C)OSe_ VOijlE 
CkON ■‘20 l.ES , VT uJAS EU-H. «■ 



POLUT is a water pollution simulation that can be used m 
Environmental Stud.es or Social Studies cbxcs. J« * 
self-explanatory to be used with a minimum of bac^oundmto 
mat, on. To optimize learning, you should have s'udents read ^, 
Resource Handbook, which can act as a textbook on the ^ 
of water poUution. We regularly use this program 
to our center how a computer simulation can 

• • a ./xr arpn t tflPV . L 
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INSTRUCTIONS <l« Y F<; „ 

o*Nm?i 


IN TH 


fC ^INO THf R6SOURC6 

IS ST„ 0 y vou CM SPtcirY J0£Sf£,SS SSST 

IE KIND OF BODY nt ... LLOVING CHARACTERISTICS: A^IHPp’eN^Wr’rrODy'* 


A. THE KIND OF BODY OF u », 

I • LARGE POND F WaTer « 

a* large lake 
3. SLOW-MOVING R I VER 
A. FAST-MOVING RIVER 

P. THE WATER Temperatmrf y 

RE IN DEGREES FAHRENHEIT, 

C« THE KIND OF WASTf m. 

1. industrial n MPED INT0 the water, 

2. SEWAGE 

D. THY »«,Y „P DMp „ G op 

E THE TYOE TD PER MILLION <PPH»/DAY. 

™ hSe tre “™ e « or ,„e „„ stEl 

». PRIMARY (SEDIMENTATION OR PA « crt , 

SCREENS TO RFMn\,F P r!«o GE ThR0U GH FINE 
2. SECONDARY (SAND FILTERS^ S!f SS S0LIDS > 

METHOD TO rLovf ^ ACTtUATE D SLUDGE 
ORGANIC MATTER >" D,SS0LVED amd COLLOIDAL 

4e4cakstra*e^ta»CT«ca#ca«c^c 


& 


RRO R MESSAGES ••• 

To THWART rue cujw/v 
in the group Cor to 
CATCH VNWrrTtMG <s OOPS.) 


BODY OF WATER? 3 
WATER TEMPERATURE? 30 

YOUR BODY OF WATER IS A BLOCK OF ICE, AND CAN • T 
ACCEPT ANY WASTE. TRY A NEW TEMPERATURE^ 

WATER TEMPERATURE? 3 5 
KIND OF WASTE?! 

DUMPING RATE? 18 
NEW YORK CITY ONLY POLLUTES ITS WATER AT THE RATE OF 
12 PPM/DAY. MAKE YOUR RATE BETWEEN 0 AND 14. 

DUMPING RATE? 8 
TYPE OF TREATMENT?! 


DO YOU WANT: A GRAPH ( 1 > , A TABLEC2 ) , OR BnTHC3)?i 


0. . .OXYGEN-SCALE. . . . 5. . .OXYGEN-SCALE. . . 10. . .OXYGEN-SCALE. . . 15 
0. . WASTE. 1 0. . SCALE. 20. . WASTE. 30. . SCALE. AO. . WASTE. 50. • SCALE. 60 

I I I I I I I 

W o 


w 

w 

w 


l T oulon t this graph 
look meat om your 
classroom t.v. Monitor /p/ 


w 

ij 

w 

w 

w 


o 

o 

o 

o 

o 

o 


THE WASTE CONTENT AND OXYGEN i EXCHANGES? ^ 

THESE LEVELS UNTIL ONE OF THE VAR I A 



*********** 


BODY OF VATER? 2 
WATER TEMPERATURE? 60 
KIMD OF VA5TF72 
DUMPING RATE? 10 
Tvpe OF TREATMENT? 1 




_ RfzATg A 0AO 
ESI viRosj M 

my to 

it L/P/ 


DO YOU WANT* A GRAPH<1># A TABLE (2 ) # OR B0TH<3>?1 


AFTER DAY 2 THE FISH BEGIN TO DIE# BECAUSE TO OjQ&ll - 

THE OXYGEN CONTENT OF THE VATER DROPPED BELOV 5 PPM. 


DAY 

0 

1 

2 

3 

A 

5 

6 

7 

8 

9 

10 




V 

V 

V 

V 

V 

V 

V 

V 


Of}: 5E rne graph to 
teach iruoegrs jf* 

TO REAO GRAPHS, 


THE WASTE CONTENT AND OXYGEN CONTENT WILL REMAIN AT 
THESE LEVELS UNTIL ONE OF THE VARIABLES CHANGES. 


ANOTHER RUN C 1 -YES # 0*N0>?l 


BODY OF VATER?2 
WATER TEMPERATURE? 60 
KIND OF WASTE72 
DUMPING RATE? 10 
TYPE OF TREATMENT? 2 


y)An£ AilV AT lObi AS , D6F£«E 
WITH StOONOAUS 
of PR|MA«/ TPEA TrtehJT. 
P0C3 IT HELP ?? 


DO YOU WANT ■ A GRAPHO), A TA8LE<2), OB B0THC3)T8 


TIME 

DAYS 

0 

1 

2 

3 

A 

5 

6 

7 

8 

9 

10 
1 1 
12 
13 
1 A 

15 

16 
1 7 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


OXY. CONTENT 
PPM 


7.89 
7. 68 
7.37 
7.15 
7.02 
6.95 
6.92 
6.9 
6.9 

6.89 
6.89 
6.89 
6. 89 
6. 89 
6.89 
6* 89 
6.89 
6.89 
6.89 
6.89 
6.89 
6.89 
6.89 
6* 89 
6.89 
6.89 
6.69 
6.89 
6.69 
6.89 
6.69 


YES# 0*NO)?1 


WASTE CONTENT 
PPM 


2.67 
3.39 
3. 72 
3. 87 
3. 94 
3.97 
3.99 
3. 99 

*1 

4 

4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


y)yjR ST UOEMT3 fOURO 
y THe TABLE Djfn$ UL - T 
to * NTERPRcT. 
hou/ about you ? 



another bun < 1 * 


Other simulations from Huntington I I 


ELECT Li 

Studies the campaign strategy in 14 past American Presidential elections 

ELECTS 

A role playing game to be used in the classroom. ELECT * simulates a 
real life political campaign with students planning campaign strategies 
and simulating a real election. 

POLSYS 

A role playing classroom simulation where students try to influence the 
decisions of a local governmental body (played by the computer). Does 
a good job of showing students how to effectively use the means at their 
disposal to affect the governmental processes in their communitv 

IN 1*01* 

A population model of the United States that allows students to study the 
effects of fertility, mothers age. sex ratio of offspring and mortality on 
future population size and composition. 

SAP 

A complete statistical analysis package for doing surveys. Shows how to 
set up a survey and then analyze it according to the user's needs. 


HUNTINGTON MATERIALS ARE AVAILABLE FROM: 

DIGITAL EQUIPMENT CORPORATION 
SOFTWARE DISTRIBUTION CENTER 
146 MAIN STREET 
MAYNARD, MA 01754 


terg allacti c merCant ^^ ki.li^ e bv , ^ t ' C „ War S j a f 7re * ‘ S a com P lex < interactive game - can’t the structure be preserved in a 
* y that doesn t encourage k.ll.ng by the all-powerful good guys? We would appreciate some suggestions and alternat.ve models. 

Write to us. 


SCIENCE FICTION GAMES 


Trader 
Star Trek 


*** * * * It * * * * ** * * * * * 4 * * ********** * ************* ***** * * 

*************************** J0 ft* ,fc|**** ******** 
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*************************** 

*************************** v ... a******* 
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I« JS 

HAS EXISTED FOR 70 YEARS. THERE a ^e QNL y 

SYSTEMS THAT HAVE BEEN COLON^EO. ^ DEVELOPED 

frontier systems, others are older and 

EACH OF YOU IS THE CAPTAIN OF TWO INT ^TELLAR 
TRADING SHIPS. YOU WILL TKAVtL £ hAMDISE. IF YOU 

K^TSSs - — 

AS TIME GOES ON, EACH STAR SYSTEM WILL SLOWLY^ t 

HO°w W ;s A SEUl'ng' , MUCH uiANIUM A AND‘RAW METALS CHEAPLY 
ioT HAVE ENOUGH FOR EXPORT IN A FEW YEARS. 

v-m» SHIPS CAN TRAVEL A30UT TWO LIGHTYEARS IN A 
YOUR SHIPS LAN I - s 0F CARGO . ONLY 

WEEK AND CAN CARRY ,3P 1^? 3 Tr <- , VE -3ANKS ON THEM. 

HANK. 

STAR MAP 
************ 



#- * 

*YORK 


* K £ S 




W 



STAR SYSTEM CLASSES: 

I COSMOPOLITAN 

II developed 
III underdeveloped 
IV FRONTIER 


MERCHANDISE: 


-1 1 1 *S0L- l -*SOYD 1 ' 


UR 

URANIUM 

MET 

METALS 

HE 

HEAVY EQUIPMENT 

MED 

MEDICINE 

SOFT 

COMPUTER SOFTWARE 

GEMS 

STAR GEMS 


R, MET, GEMS that you can bbing back to sol and 

HE CLASS II SYSTEMS IN TRADE 




★HOOK 



tut map IS 100 LIGHT-YEARS BY 100 LIGHT-Ye.ARS, 
sS^THS CROSS-LINES MARK 10 LIGHT-YEAR DISTANCES 



IT IS THE FUTURE. Interstellar space ships link the small 
I community of newly discovered worlds. YOU captain two merchant! 

I ships with the future of the young, emergent worlds depending upon 
you and your fellow skippers. 

You land and you liftoff, you buy local merchandise and sell 
what you have on board. You trade with the merchants and haggle 
over prices. Bid too high? Try a little lower. Bid too low? Try again| 
next time! 

You buy your raw materials (like Uranium or Metals) on the 
less developed, newer star systems. With a full ship, you lift off and 
return to Class I or Class II star systems. There you sell out and load 
I up on goods such as Heavy Equipment, or Medicine. Then out to 
I the periphery for another haul. 

But that’s not all! As the years progress, the star systems will | 
slowly develop . and those on the brisker trading routes will grow 
I faster. 



warn 


Here is the start. 
Follow black arrows 



STUDY THE MAP AND CURRENT 
CLASS 1 AND II STARS MAKE 


PRICE CHARTS CAPXFULLY - 
EXCELLENT TRADING PARTNERS 


WITH CLASS III OP. IV STARS. 


This material was from a 4- person game - the map 
on the cross page was from this game. 


J 
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LUMMOX lands on QUIN. 
What happens next? The 
captain moves to the chair at 
the terminal and bargains with 
the local merchants - 


*««****»•*>+* 

* JUL 13 , 2372 

* LUMMOX HAS LANDED ON QUIN 

2 WEEKS LATE - M.’E GOT LOST. SOPPY* 


1 ON BOARD 
5 000 


un MET 


HE 


MED 

10 


SOFT 

10 




NET WT 
25 


PLAYER I 
THE ETA AT 


PLAYER 2 
THE ETA AT 


PLAYER 3 
THE ETA AT 


PLAYER 4 
THE ETA AT 


PLAYER 1 
THE ETA AT 


PLAYER 2 
THE ETA AT 


PLAYER. 3 
THE ETA AT 


PLAYER A 
THE ETA AT 


/WHICH 
QUIN IS 


/WHICH 
KIRK IS 


/WHICH 
HOOK IS 


/WHICH 
IVAN IS 


/WHICH 
IVAN IS 


/WHICH 
FATE IS 


/WHICH 
GAOL IS 


/WHICH 
STAN IS 


STAP. WILL 
JUN 29 

STAR WILL 
SEP 3 

STAR WILL 
AUG 1 6 

STAR WILL 
JUN 29 

STAR WILL 
JUN 29 

STAR WILL 
MAY 29 

STAR WILL 
APR 10 

STAR WILL 
JUL 1 A 


LUMMOXTRAVEL TO? QUIN 
/ 2070 

JOHN TRAVEL TO? KIRK 
/ 2070 

INDRA TRAVEL T07H0OK 
/ 2070 

XI 5 TRAVEL TO? IVAN 
, 2070 

LITTLETRAVEL TO? IVAN 
/ 2070 

HARDY TRAVEL TO? FATE 
/ 2070 

SHIVA TRAVEL TO? GAOL 
/ 2070 

APOLLOTRAVEL TO? STAN 
/ 2070 


8 


I/E ARE BUYING t 

HE VE NEED 
WE OFFER 36000. 
-%+VE‘LL BUY l 

MED VE NEED 
WE OFFER 23700 
WE OFFER 259O0 
WE'LL BUY I 

SOFT WE NF.ED 
WE OFFER 34200 • 
WE'LL 3UY1 


M 


UN ITS. HOV MANY ARE YOU SELLING? 8 
WHAT DO YOU BID? 38000 

UN ITS. HOW MANY ARE YOU SELLING? 5 
WHAT DO YOU BID? 30000 
VKAT DO YOU 3 ID? 28030 

UNITS.KOV MANY ARE YOU SELLING? 10 
WHAT DO YOU 3 ID? 3 7 500 


Several months later, LUMMOX 
returns to SOL 
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* FEB 2 / 2071 

* LUMMOX HAS LANDED ON SOL 

3 WEEKS LATE - PIRATES ATTACKED KIDVOYAGE 








S ON BOARD 
46 000 


UR 

9 


MET 

7 


HE 

7 


MED SOFT GEMS NET VT 
5 0 4 28 


VE APE SELLING: 

UR UP TO 
WE ONLY HAVE 

HOT' MANY ARE YOU BUYING? 9 
VE WANT ABOUT 3 to 6 00 
SOLD! 

MET UP TO 
WE VAN 7 ABOUT 
VE WANT ABOUT 
OUR FINAL OFFER; 

SOLDI 

GEMS UP TO 4 
VE VANT ABOUT 
SOLD! 

WHAT IS YOUR NEXT PORT OF CALL? SOL 

THE ETA AT SOL IS JAM 11 / 2071 


UNITS. HOW MANY ARE YOU BUYING? 10 
UN l DC 


YOUP. OFFER? 35000 


7 UNITS.KOV MANY AP.S YOU BUYING? 7 

20000 YOUP. OFFER? I 5000 

19302 YOUR OFFER? 17533 

19300 YOUR OFFER? 1 8500 

UN ITS. HOW MANY ARE YOU 3UY1NG74 
9700 YOUR OFFEF.7 9000 


t 


WE ARE BUYING: 

UR WE NEED 24 
VE OFFER 54300. 
WE'LL BUY! 

MET VE HEED 18 
VE OFFER 29623 
VE OFFER 30000 


UNITS. HOY MANY ARE YOU SELLING79 
YHAT DO YOU SID? 60003 

UNITS.KOV MANY ARE YOU SELLING? 7 
VKAT DO YOU SID? 35333 
VHAT DO YOU 3 ID? 33 5 22 

VKAT DO YOU 31 D? 32500 


UNITS. HOV MANY APE YOU SELLING? 4 
VKAT DO YOU 3ID? 18503 


And LUMMOX goes back to QUIN. 
Five months have gone by - here’s 
what the local merchants want to 
trade 




OUR FINAL OFFER: 30003 
WE'LL BUY! 

GEMS WE NEED 12 
VE OFFER 14430 
WE OFFER 14923 VKAT DO YOU SID? 16750 
OUR FINAL OFFER: 14903 '.THAT DO YOU BID? 16320 
VE'LL BUY! 

VE ARE SELLING: 

HE UP TO 18 UNITS. HO** MANY ARE YOU SUYiNG?8 

i*E WANT A30UT 23830 YOUR OFFER72003C 

WE VANT ABOUT 23400 YOUR OFFER? 2 1323 

01JR FINAL OFFER: 23303 YOUR OFFER? 21 560 
SOLD! 

MED UP TO 12 UNITS.KOV MANY ARE YOU BUYING? 1 3 
V'E VANT ABOUT 33303. YOUR Or FEE? 25300 

u£ WANT A30VT 31930 YOUR OFFER? 275 2R 
OUR FINAL OFFER: 31630 YOUR OFFSR729303 
SOLD! 

SOFT UP TO 24 UNITS. HOV HASIY ARE YOU BUYING? 15 
VE VANT ABOUT 33303. YOUR OFFER? 25032 

VE WANT ABOUT 31900 YO*JR OFFER? 25530 
OUR FINAL OF? ER: 31800 YOUR OFFER? 29333 
SOLD! 

DO YOU VISH TO VISIT THE LOCAL SANK? YES 
YOU HAVE 0 DOLLARS IN THE BANK 

HOV MUCH DO YOU WISH TO DEPOSIT? 99999999 
YOU HAVE S 75C30. ON YOUR SHI? 

HOV MUCH DO YOU VISH TO DEPOSIT? 65330 

VHAT IS YOUR NEXT PORT OF CALL? 3U IN 

CREWMEN DEMAND A VACATION - 2 VEEX DELAY. 

THE ETA AT QUIN IS AUG 14 , 2071 




* AUG 21 / 2071 

* LUMMOX HAS LANDED ON QUIN 

| WEEK LATE - 'OUR COMPUTER MADE A MISTAKE* 










S ON BOARD 
J0 000 


un 

0 


MET 

0 


HE 

IS 


MED 

15 


SOFT GEMS WET VT 
15 0 30 


VE APE 3UYING r 

HE VE NEED 
VE OFFER 47720. 
VE OFFEH 49030. 
OUR FINAL OFFER* 
VE'LL BUY! 

MED VE NEED 
VE OFFER 54200. 


UNITS. HOV MANY ARE YOU SELLING? I 3 
WHAT DO YOU DID? 60003 
VHAT DO YOL' 3 ID? 55030 
I. VHAT DO YOU BID? 5250 3 

UNITS.KOV MANY ARE YOU SELLING? 1 0 
VKAT DO YOU BID? 62000 


VE'LL 3UY! 

SOFT VE HEED 
VE OFFER 54002- 
VE OFFER 54933. 
OUR FINAL OFFER: 
VE’LL BUY! 


UNITS.KOV MANY ARE YOU SELLING? 1 5 
VHAT DO YOU DID? 65333 
"HAT DO YOU 31 D? 62523 
!. VHAT DO YOU BID7630O3 


” “ “S £t ~~“ 

"SMS SKS. 

S0LUI o UNITS .HOW MANY ARE YOU BUYING79 

£2832 YOUR OFFEr.’ 23503 
2T7CJ YOUR OFFER? 210 30 


met up to 

"ant about 


VE VANT ABOUT 
SOLD! 

GEMS UP TO 
VE WANT ABOUT 

VHAT IS L; -'OUR JjSXT POOT OF CALL? TASK 
THE ETA AT TAjK IS NOV 8 / Z37I 


0 UN IT 5. HOY MANY AP.Z YOL 

17630 YOUR OFFER? I 6330 


BUYING? 6 


for » 
th« n 


and 


- tas* 




7<w <y£ fat Stwi 


**** ******** *** * ******* ************ 

* ***** * * Jjt ********* * ** * * * ****** * ** * 


SO YOU'RE NEW? 

Just try to get the feel of the game. Find a friend 
and play for an hour or two. Spend a few days thinking 
about the game. Now get a few friends and play another 
short game for an hour or two. 

Do vou like the game? GREAT! Now read the box 
called ARE YOU GETTING INTO IT? 


STARDUST SPINOFFS 

* What does it feel like to fly a spaceship? 

* How many crew members do you need? 
Are they men or women or mixed? What size 
Is the ship? 

* Sketch or paint a model of the ship. 

* Is your food and water stored on board? 
Do you recycle it? Are there hydroponic gardens 
in your ship? 

* What do you use for fuel? How often 

do you need to refuel? 

* Do you own the ship or do all the 

crewmembers have joint ownership? 


ARE YOU GETTING INTO IT? 

PI make two suggestions 

* Get two or three friends who ve also 
gotten their feet wet. If necessary, talk them 
into it. Start a SO year game. If you and your 
friends play once a week in two hour chunks. 
(Friday? During the week after school . ) the 
game will easily last a whole school year. 

Don’t forget - each time you stop, 
type SAVE as your next port of call and keep 
the paper tape. 

* Set up your own game and try different 

situations. You can 

* Play with up to 12 players 

f Choose ships per player so total number 
of ships is less than or equal to 12. 
t Ask for 4 to 1 3 star systems to start, 
t Pick any length game (a million years?) 
f Change the cargo tonnage limits of a ship, 
f Fiddle with the minimum interstellar 
distance. 

i Fix the maximum number of bids per 
round (“OUR FINAL BID . . .”> 
t Set the profit margin. 


* Why are there pirate ships? Can you 
become one? Where would you refuel? 

* Does your ship land on a planet or do 
space tugs ferry the merchandise up and down? 
How much does it cost? Are there space long- 
shoremen strikes? 

* What about taxes? 

* Do you have stowaways? What does 
spacelaw tell you to do with them if they are 
discovered between stars? 


START A CLUB 

* Find some friends and tell them 
about your strategies. 

* Talk about their strategies. 

* Design a new, better Star Traders 
game. 

* There are lots of good science fiction 
stories. How many are about interstellar 
merchants? What merchandise do they sell 
or trade? 


SO YOU’RE FINALLY AN OLDT1MER . . 

You’ve played a dozen games with many variations. 
You’re probably playing a long-range game ( 50 years? 

100 years?) with friends once or twice a week. Congrat- 
ulations! 

A few suggestions, some of which you’ve probably 
thought of - 

* Play a tight game. 2 ships per player, 1 star system 
per ship. 25 light year minimum interstellar distance, and 
push the profit margin to 5. Drop max tonnage to 25 (or 
even 20), allow only 2 bids per round, and Good Luck - 
hope you make some money! 

* Play an easy game. 2 players. 1 ship each. 13 stars, 
15 lightyear interstellar distance, and drop the profit margin 
number to 1. Max tonnage make 60, allow 9 bids per round, 
you should make millions. 

* Study the program. 

* Change the macro-economic model (explanation of 
how to on next page). 
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HERE ARE SOME IDEAS 
FOR A BETTER GAME 

Here are some ideas for a better game - 

* Change the way the stars are set up. 

* Make more than one Class 1 star to 
start with so there will be competing trade 
centers. 

* .Allow a player to go pirate for awhile. 

But if he’s caught, he (you fill in). 

* If a level III is growing too quickly, 
put an interstellar embargo on selling Uranium 
there. Otherwise, the locals would have a nuclear 
war. 

* Make up better merchandise. 

* How about ship-to-ship trading at 
certain open ports. 

* If ships could pick their inteistellar 
speed, how would you design the game to make 
very high speeds costly? Maybe at high speeds, 
the chances go up that the ship will fall apart, or 
maybe each step in speed squares the fuel cost, 
or maybe . . 


Here is a discussion of three i 
He you curious about the ideas, or 
puzzling it out, read on , . . 


ntcresting parts of STAR 
are P ,owin g right into the 


TRADER. 

program. 


HOW THE STAR MAP IS MADE 


Ever notice how the stars are distributed*’ At the h* • • r 

each game, the Frontier Class (Class IV ) stirs irn J beginning of 

Developed Class (Class II) near the cemer and .he I^Th ?- ^ 
Class (Class 111) s.ars are scattered. * Underdeveloped 


Here's how this is done Uf you speak BASIC 
through 2390 in the TRAD HR program). 


look at lines l 900 


SOL is our sun, and is the only 
It's always in the center. 


Class I star on the starting map. 



,, . A " h * ° ,h “ s,ars are generated randomly. Class Us appear inside 
the box <50 Iightycarsona s.de) while Class IVs (the Frontier systems) 
are generated outside the box. The Class Ills are sprinkled throughout 


To make the star map more even, as each star is placed, only half 
the map is considered. The first star appears somewhere in the top half. 
Y>/0. The next star is placed on the right halfboard (think of it as 
East of SOL) where X^O. Then the bottom halfboard, then the left 
and around again until all stars are placed. 


After placing SOL, the program next places two Frontier stars, 
then one Underdeveloped. After these initial 4, STAR TRADER places 
a Frontier, an Underdeveloped, a Developed. Then back to Frontier for 
another cycle until all stars are placed. 


Want to generate your own Star Map? Easy - Start with a large, 
blank Star Map. Now mark down SOL. 


HOW LOCAL MERCHANTS BARGAIN 

When your counter offer to their bid is too far away, the merchants 
will tell you, THAT’S TOO LOW or WE’LL PASS THIS ONE. But if 
you’re within their Price Window, they will adjust and continue bargain- 
ing! Usually, they move a little towards your last offer. Beware - the 
Price Window gets narrower each round of bidding. If you stick to the 
same bid, they’ll probably reject it. 

The Price Window is widest when the number of units you’re 
bargaining for satisfies the local merchants. If they want 6 units, 
you’ll get your best prices by offering 6 (or more). Unless you want 
to save some for a later star stop, it’s best to buy — or sell - what the 
merchants ask for. 


Use another sheet of paper to cover all but the top halfmap. Make 
a random toss (use a thumbtack or a wadded ball of paper) on the 
halfniap showing; if it lands inside the box, toss again. Mark and name 
the new star. 

Rotate the covering sheet to expose the second halfmap. Toss again 
for a Frontier star. Mark and name. 

Rotate again for each star remaining. Toss each time until the star 
Is legal (on the map, inside/outside the box if Developed/Frontier). 

One more thing -- the minimum distance between stars is usually 
1 5 light-years. If a new star is closer to any other star, toss again. 


THE ECONOMETRIC MODEL 

Each Star System (including SOL) is constantly changing its 
developmental level. And so the balance of products and needs shifts 
as well. 

Young Star Systems have surpluses of Uranium, Raw Metals and 
Gems but need alot of Heavy Equipment, Medicine and Computer Soft- 
ware. Cosmopolitan (and Developed) Star Systems are reversed — and 
this is why they make such good trading partners. 


SURPLUS 

( + ) 


<-> 

NEED 



a level interlude 

/ — * 


Here’s the graph: 


the big switch some Star systems 
fall into this and never get enough 
trade to progress further. 



* Plot your new graph for all six types of merchandise. Graph 
paper helps and so do colored pencils. Less confusion. 

9 

* Each segment (there are 18 - 3 for each of 6 types; the graph 
past Cosmopolitan is a continuation of the lines during Developed) is the 
straight-line history of a type of merchandise during a level interlude , 
between Frontier and Underdeveloped, say, or between Developed and 
Cosmopolitan* 

* For each segment, find its slope and Y— intercept (in the 
Y = mX + b formula, m is the slope and b the Y-intercept). 

* Replace lines 100 and 1 10 in TRADE* with your new numbers. 

Line 100 is the slope information. The first 3 numbers are the three 
slopes for Uranium. The next 3 for Metals and so on. Line 1 10 are 
the Y-intercept numbers and also conic 3 at a time. 

When you find some new Models that work well, let us know! 



/I 0<UttC ^ //* 


AS CAPTAIN OF THE ESTERPRISk JWR ^JSSION 
IS TO FIND AND DESTROY ALL l NITS OF THE KUNAA ^ 
INVASION FORCE WITHIN 30 STARDATES. IF YOU AI . 
THE FEDERATION WILL BE CONQUERED. 

Your ship, the ESTER PRISE, is much more powerful than the 
Kl'.r.gon battle cruisers But beware! Space battle drams catch 
energy and it is not easy to find the Starbases. If the klmgons ca 
you with your shields down, you'll probably get crisped. 

Think of Starbases as interstellar pit stops, w here the SUR- 
PRISE refuels (energy goes back to 3000). damages are repaired, ana 
your photon torpedoes are reloaded (back to l Ok 

Because the Klingon ships are scattered throughout the galaxy, 
you'll be navigating the ESTER PRISE all over the place 

The galaxy is divrded into quadrants - there are 64 of ' them and 
they make a checkerboard. Give COMMAND 7. then COMPU J tR 
COMMAND 0 and you'll get a galactic map printed - up .to date. 
of course-, it shows those parts of the galaxy you ve already explored. 

Each quadrant is divided into C>4 sectors. You guessed it - «>«/" 
arraneed S-bv-«. Each time you move, you get a short-range sensor 
scan printed - that's a map of the quadrant you're in. Ifyou want to 
see what's in your neighboring quadrants, either go there, or g 
range sensor scan. 

Oh yes - it takes 1 stardate to move to a new* quadrant, and you 
must defeat the Klingons in 30 stardates or less. 



COMMAND 0 
COMMAND 1 
COMMAND 2 
COMMAND 3 
COMMAND A 
COMMAND 5 
COMMAND 6 
COMMAND 7 


SHORTAGE SENS0R L SCAN 

LONG range SENSOR SCAN 

ESSE TORPEDO CONTROL 

S SKSt REPORT 
LIBRARY COMPUTER 


SHORT-RANGE SENSORS 
SHOW THESE SYMBOLS 


«*> - &MTEKPHISE 

♦+♦ - KLIM GO 'I 

>|< . STAitBASE 
* . STAR 


ON THE NEXT FOUR PAGES. I'LL SHOW YOU A GAME 1 PLAYED RECENTLY - 

fOU MUST DESTROY 16 KLINGONS IN 30 


ST.ROATES «.T» * - 1 


STARDATE 

CONDITION 

QUADRANT 

SECTOR 

ENERGY 

PHOTON TORPEDOES 
SHIELDS 


/Ve lots of Starbases to refuel at. 

3000 
GREEN 
8, 1 
7,7 
3000 
10 

0 


COMMAND* 72 _ „ # 

long range sensor scan for quadrant 8a I 


t 

0 t 

1 1 

t 2 s 

t 

0 s 

7 

*101 s 

s 

0 1 

0 

t 0 * 


aha! Klingons due East 


1 0 1 


Klingon 

Starbases 

Star 




COMMAND 2 > LONG RANGE SENSOR SCAM 

SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE 
OF THE ENTERPRISE IN THE MIDDLE OF THE SCAN • THE SCAN 
IS CODED IN THE FORM XXX, WHERE THE UNITS DIGIT IS THE 
NUMBER OF STARS, THE TENS DIGIT IS THE NUMBEh OF STAR- 
BASES, THE HUNDREDS DIGIT IS THE NUMBER OF KLINGONS. 


COMMAND* ?0 

COURSE Cl -9 ) * ? 1 / arrive in a combat quadrant with no energy 

WARP FACTOR C0-8 ) : ? 1 /;/ my shields 

COMBAT AREA CONDITION RED 

SHIELDS DANGEROUSLY LOW 


STARDATE 

3001 

CONDITION 

RED 

QUADRANT 

8,2 

SECTOR 

7, 7 

ENERGY 

2997 

PHOTON TORPEDOES 10 

SHIELDS 

0 
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COMMAND* 7 5 

IER6Y AVAILABLE » 2997 


Omt fire before putting up \ our shields 


you U get crisped ' 


NUMBER OF UNITS TO SHIELDS : 7 1 000 


COMMAND 5 - SHIELD CONTROL 

DEFINES NUMBER OF ENERGY UNITS TO BE ASSIGNED TO SHIELDS 
ENERGY IS TAKEN FROM TOTAL SHIP*S ENERGY. 



When you navigate, you choose a direction (COURSE) 
an d then decide how far you want to go (WARP FACTOR) 
_ that's two decisions, so here are two paragraphs 

COURSE : East is I. North 3 and you can figure the rest 
yourself from the diagram. Of course, Northwest (between 
J and 5) is 4. You can get finer directions by using decimal 
fractions - between South ( 7) and SouthEast(S) are 7 / 

72. 7.3, .... 7.8, 7.9 I rarely use finer COURSE settings 
such as 7.125 ... Between 8 and 1 , use 8.1, 8.2 8.9 

WARP FACTOR : If you set your warp factor to 1, you 
move 1 full quadrant and end up the next one over. 2 
skips you over the neighboring quadrant and you 'll stop 
in the one past it. *** WARNING *** If you go out of 
the known galaxy, you will find no stars (0) and may have 
trouble getting back. To maneuver within a quadrant, use 
numbers less than /; . 5 will move you half a quadrant, or 
4 sectors. Since there are 8 sectors across a quadrant, each 
j/8 warp factor (or . 125 in decimal) moves you 1 sector. 


COMMAND 0 - WAJriP ENGINE CONTROL 

'COURSE IS IN A CIRCULAR NUMERICAL 
VECTOR ARRANGEMENT AS SHOWN* 
INTERGER AND REAL VALUES MAT BE 
USED* THEREFORE COURSE 1*5 IS 
HALF WAY BETWEEN 1 AND 2. 

A VECTOR OF 9 IS UNDEFINED# BUT 
VALUES MAT APPROACH 9. 

ONE 'WARP FACTOR* IS THE SIZE OF 
ONE QUADRANT* THEREFORE TO GET 
FROM QUADRANT 6# 5 TO 5# 5 YOU WOULD 
USE COURSE 3# WARP FACTOR I 


Warp Engine Control is a fancy name for 
NAVIGATION. 


4 3 2 

S • / 

\t/ 

5 1 

/t \ 

/ » \ 

6 7 8 

COURSE 


************************** 


******************************************** 


COMMAND! 73 

PHASERS LOCKED ON TARGET. ENERGY AVAILABLE- 1997 
NUMBER OF UNITS TO FIRE i 7 600 

81 UNIT HIT ON ENTERPRISE AT SECTOR 3#5 < 919 LEFT) 

31 UNIT HIT ON KLINGON AT SECTOR 3# 5 <169 LEFT) . , 

COMMAND i73 fC Hits reduce the shield levels until . . there's nothing left . . 

PHASERS LOCKED ON TARGET. ENERGY AVAILABLE- 1397 
NUMBER OF UNITS TO FIREi?600 

49 UNIT HIT ON ENTERPRISE AT SECTOR 3# 5 < 870 LEFT) 

214 UNIT HIT ON KLINGON AT SECTOR 3# 5 C-45 LEFT) 

KLINGON AT SECTOR 3# 5 DESTROYED ♦*** ^ 


COMMAND 3 - PHASER CONTROL 

ALLOWS YOU TO DESTROY THE KLINGONS BY HITTING HIM WITH 
SUITABLY LARGE NUMBERS OF ENERGY UNITS TO DEPLETE HIS 
SHIELD POWER. KEEP IN MIND THAT WHEN YOU SHOOT AT 
HIM# HE GONNA DO IT TO YOU TOO. 


COMMAND: 72 

LONG RANGE SENSOR SCAN FOR QUADRANT 8# 2 


1 

11 1 

2 ! 

3 i 

1 

7 1 

1 ! 

8 ! 

! 

0 ! 

0 I 

0 ! 


COMMAND! 70 
COURSE C l -9) :?2 
WARP FACTOR (0-8) I 3 


* 


COMMAND! 72 

LONG RANGE SENSOR SCAN 


1 

7 ! 

1 

! 1 ‘ 

! 

2 ! 

1 

! 101 1 

! 

2 i 

5 

! 1 t 



I’m looking around for some more Klingons. 1 figure I have 
enough energy and torpedoes left for 4 or 5 more before I’ll 
have to find a Starbase. 


FOR QUADRANT 5# 5 


none here . . . 

but my sensors spot one due East 


<*> 


STARDATE 3002 

CONDITION GREEN 

QUADRANT 5# 5 

SECTOR 7*7 

ENERGY 778 

PHOTON TORPEDOES 10 
SHIELDS 870 


COMMAND! 70 
COURSE <1-9)171 
WARP FACTOR <0-8 > I? 1 


STARDATE 

3003 

CONDITION 

RED 

QUADRANT 

5#6 

SECTOR 

7*7 

ENERGY 

775 

PHOTON TORPEDOES 

10 

SHIELDS 

870 




COMMAND: ?4 


TORPEDO COURSE < 1-9) *73 
TORPEDO TRACKi 


6.7 

5.7 

4.7 

3.7 

*** KLINGON DESTROYED *** 


This was an easy shot - 
the Klingon was due North 


COMMAND A - PHOTON TOHPEDO CONTROL^ CO MTBOL 

COURSE IS THE SAME AS USED I KO yED AND CANNOT FIRE 

iUT™!“.ST*!i“ it SlU- SHOOT HIS PHASEHS «T 

r IjOTEl THE 2)- 

TO COMPUTE TOHPEDO THAJECTOKY rU 


COMMAND* 72 

LONG RANGE SENSOR SCAN FOR QUADRANT 5,6 


t 

1 t 

1 

1 4 t 

t 

1 1 

1 

* 6 t 

* 

5 * 

1 

*105 * 


Back to looking around - / have to go 
South East to reach the next one . 


COMMAND *70 
COURSE ( 1 -9 ) ; 7 o 
WhRP FACTOR < 0-8) *7 1 


STARDATE 

CONDITION 

QUADRANT 

SECTOR 

ENERGY 

PHOTON TORPEDOES 
SHIELDS 


COMMAND* 74 

TORPEDO COURSE < 1-9) *73.2 
TORPEDO TRACKi 

6.7 

5.7 

4.6 

3.6 

2.6 

*** KLINGON DESTROYED *** 

COMMAND* 72 


COURSE 3.2 - a bit West of due North 



LONG RANGE SENSOR SCAN FOR QUADRANT 6,7 
t 1*6*5* 
t 1 * 5 t 6 * 



u 


l 6 *104 t 5 * 

COMMAND* 70 
COURSE C 1 -9 ) * 7 7 
WARP FACTOR C0-8)l?l 


by the way - the Enterprise's computer 
banks are storing all the Long Range Sensor 
scans I’ve taken . 


+++ * 




STARDATE 

3005 


CONDITION 

RED 


QUADRANT 

7, 7 


SECTOR 

7,7 

♦ 

ENERGY 

769 

* <m> 

PHOTON TORPEDOES 

8 

m 

SHIELDS 

8 70 

COMMAND* 70 



COURSE Cl -9)* 74 



WARP FACTOR (0-8)17.75 



32 UNIT HIT ON ENTERPRISE AT SECTOR 

1,1 C 839 I .EFT } 


WARP ENGINES SHUTDOWN AT SECTOR 1,1 

DUE TO BAD NAVIGATION 

♦♦♦ * 



<*> 

STARDATE 

3005 


CONDITION 

RED 


QUADRANT 

7, 7 


SECTOR 

2,2 

m 

ENERGY 

768 

* 

PHOTON TORPEDOES 

8 


SHIELDS 

839 


768 


COMMAND* 73 

PHASERS LOCKED ON TARGET. ENERGY AVAILABLE 
NUMBER OF UNITS TO FIREl ?200 

79 UNIT HIT ON ENTERPRISE AT SECTOR 1,1 , 

167 UNIT HIT ON KLINGON AT SECTOR 1,1 ( 33 

COMMANDS 73 " 1,1 c 33 

PHASERS LOCKED ON TARGET. ENERGY AVAILABLE 
NUMBER OF UNITS TO FIREs 7 50 AVAILABLE 

46 UNIT HIT ON ENTERPRISE AT SECrno . . 

52 UNIT HIT ON KLINGON AT SECTOR ? I t ,0 ? ‘ 4 LEFT 5 
KLINGON AT SECTOR 1,1 DESTROYED ***** * LEFT > 


759 LEFT) 
LEFT) 


568 


COMMAND! 7 2 

LONG RANGE SENSOR SCAN FOR QUADRANT 7,7 


1 

1 t 

5 ! 

6 t 


I 

6 1 

4 l 

5 1 


1 

15 s 

4 ! 

7 1 hey! aStarbase! 

there it is 


COMMAND* 70 
COURSE < 1 -9 > i ? 6 
WARP FACTOR C0-8)i?l 

* > 

<*> * 

* 

* 

♦ 



STARDATE 

3006 

CONDITION 

GREEN 

QUADRANT 

8,6 

SECTOR 

2,2 

ENERGY 

515 

PHOTON TORPEDOES 

6 

SHIELDS 

714 



COMMAND: 70 

COURSE <1-9>I?8 

WARP FACTOR < 0-8 )i 7.25 


first 1 navigate UNDER the two stars in my way. 
now 1 can warp straight in and dock 


* >1 < 

* STARDATE 3006 

CONDITION GREEN 

<*> ♦ QUADRANT 8, 6 

SECTOR 4, 4 

♦ ENERGY 518 

* PHOTON TORPEDOES 8 

SHIELDS 714 


COMMAND! 70 

COURSE C 1-9) 17 2 

WARP FACTOR C0-8)l?.35 

DAMAGE CONTROL REPORT J COMPUTER STATE OF REPAIR IMPROVED 

SHIELDS DROPPED FOR DOCKING PURPOSES 


STARDATE 3006 

CONDITION DOCKED 

QUADRANT 8,6 

SECTOR 2,6 

ENERGY 3000 

PHOTON TORPEDOES 10 
SHIELDS ^ 


COMPUTER ACTIVE AND AWAITING COMMAND? 


1 


STATUS REPORT 

NUMBER OF 
NUMBER OF 
NUMBER OF 

DEVICE 

WARP ENGINES 
S.R. SENSORS 
L» R • SENSORS 
PHASER CNTRL 
PHOTON TUBES 
DAMAGE CNTRL 
SHIELD CNTRL 
COMPUTER 


12 
24 
4 

STATE OF REPAIR 
0 
0 
0 
0 
0 
0 
0 

5.22258 


KLINGONS LEFT 
STARDATES LEFT - 
STARBASES LEFT - 


1MMAND 7 * LIBRARY COMPUTER 
THE LIBRARY COMPUTER CONTAINS THnEE OPTIONSl 
OPTION 0 - CUMULATIVE GALACTIC RECORD 
SHOWS COMPUTER MEMORY OF THE RESULTS OF ALL PREVIOUS 
LONG RANGE SENSOR SCANS 


OPTION 1 * STATUS REPORT 

.i.iudc-u nu KLINGONS, 




LEFT. 

OPTION 2 - PHOTON TORPEDO DATA 
GIVES TRAJECTORY AND DISTANCE BETWEEN THE ENTERPRISE 
AND ALL KLINGONS IN YOUR QUADRANT 


COMMAND* 77 
COMPUTER ACTIVE AND 
COMPUTER RECORD OF 

1 2 3 


AWAITING COMMAND? 0 
GALAXY FOR QUADRANT 

4 5 6 


1 

2 

3 

4 

5 

6 

7 

8 


0 


0 


0 


0 


0 


11 


7 



0 

0 

0 

2 

1 


0 0 

0 ^ 

0 0 


0 

0 

0 


0 7 


l 


0 

0 

1 


0 2 ^ 

‘0 2 5 ^ 

"3 0 0 6 

8 0 0 


8,6 

7 8 
0 0 

0 0 

0 0 



4 


7 


COMMAND l 7 





A collection of odds and ends. Crash and tha n 

art openanded games - they can be played and ann^"5!llI ! * tBd ,Mnur ,imula,8 loading a spaceship. Reverse, Zeros, and Itnman 

cia ed at many different levels of sophistication. 


LAST CHAPTER 


Crash 
Lunar Lander 
Reverse 
Zeros 
Taxman 


f 


. c me A space module. 

CON = R « UL «,0«, YOU ^ « "SKSSii * V EL «,TV « POSSIBLE. 

YOU START AT A GIVEN HEIGHT ABOV 

TOWARD THE SURFACE. SECOND. 

i c. TO RF BURNED DURING THt (NCA. 

YOU CHOOSE THE AMOUNT OF FUE T0 GRAVITY. 

! I; Z IZ e" -0 Z ~ EO O.EBCO.E ~ YOU* 
VELOCITY REMAINS CONSTANT. BURNING TOO MUCH MAY BEGIN 

THERE IS MORE THAN ENOUGH FUEL, BUT BE CAREFUL NOT TO WASTE m 
YOU MAY TRY TO LAND ON 

LANDING ON THE MOON IS THE EASIEST, ^SO TRY TH SPEC ,FY all the |N|T1AL 

SSSSSSSi BURN, and BURN TO CANCEL GRAVITY,. 


GOOD LUCK AND HAPPY LANDINGS! 

LOCATION: MOON, EARTH. OR PERSEPHONE? MOON 

INITIAL CONDITIONS: STANDARD OR RANDOM? STANDARD 

INITIAL HEIGHT: 500 FEET 
INITIAL VELOCITY: -50 FEET/SEC 
TOTAL FUEL SUPPLY. 120 UNITS 

MAXIMUM BURN: 30 UNITS/SEC ,, K11TC «cr 

AMOUNT OF BURN TO CANCEL GRAVITY: 5 UNITS/S 


The magnitude (absolute value) 
of the velocity is the speed. 

The sign of the velocity is the 
direction. A positive (4) velocity 
means you are moving away 
(upward) from the surface. 

A negative (-) velocity means 
you are falling toward the surface. 


»*»'!« „./»»• 4J 


TIME 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

15 

16 


HEIGHT 


VELOCITY 


500 

447.5 
390 

327.5 
265 
205 

142.5 
85 

44.5 

24.5 
23 

26.5 
25 

18.5 
12 

OUT OF FUEL 
7.5 
0 


-50 

-55 

-60 

-65 

-60 

-60 

-65 

-50 

-31 

-9 

6 

1 

-4 

-9 

-4 

-5 

-10 


FUEL 

120 

120 

120 

120 

110 

105 

105 

85 

61 

34 

14 

14 

14 

14 

4 



M 


Hint: If you slow down too soon, 
you may not have enough fuel 
when you really need it. 


YOU GOT DOWN, BUT YOU WILL NEVER BE AN ASTRONAUT! 

LOCATION: MOON, EARTH, OR PERSEPHONE? EARTH 

INITIAL CONDITIONS: STANDARD OR RANDOM? STANDARD 

INITIAL HEIGHT: 2000 FEET 
INITIAL VELOCITY: -150 FEET/SEC 
TOTAL FUEL SUPPLY: 630 UNITS 
MAXIMUM BURN: 90 UNITS/SEC 

AMOUNT OF BURN TO CANCEL GRAVITY 32 UNITS/SEC 


TIME 

0 


HEIGHT 

2000 


VELOCITY 

-150 


f uel burn 

630 ? v 

lour turn . . . 


Choosing PERSEPHONE as the location allows you to set up all the initial conditions. 

Here are some of the ways you can “use” PERSEPHONE: 

• In the sample landing on the MOON, we burned 20 units of fuel at TIME = 9 . This thrust sent 
the module upward (velocity became positive >. We could “start over" at this point by specifying 
PERSEPHONE as our location. Here’s how: 

LOCATION: MOON, EARTH, OR PERSEPHONE? PERSEPHONE 
INITIAL HEIGHT (FEET)? 24.5 

INITIAL VELOCITY (FEET/SEC) (USUALLY NEGATIVE)? -9 
TOTAL FUEL SUPPLY (UNITS)? 34 
MAXIMUM BURN (UNITS/SEC)? 30 

AMOUNT OF BURN TO CANCEL GRAVITY (UNITS/SEC)? 5 


TIME 

0 


HEIGHT 

24.5 


VELOCITY 

-9 


FUEL 

34 


BURN 


Try again — 


We could try another planet to land on. The AMOUNT OF BURN TO CANCEL GRAVITY is 
the same as the gravity of the planet you are landing on. 

Here are some values for the gravities in our solar system. 


LOCATION 


GRAVITY (FT/SEC 2 ) 


Mercury 

Venus 

Earth 

Moon 

Mars 

Jupiter 

Saturn 

Uranus 

Neptune 

Sun 

Asteroid 
Neutron Star 


12 

29 

32 

5 

12 

85 

37 

34 

43 

898 


So, if you wanted to try to land on SATURN . you would name PERSEPHONE as your location 
and 37 as the AMOUNT OF BURN TO CANCEL GRAVITY . 

You can try problems like the following: 

Given an initial height of 1000, an initial velocity of -50 , a maximum bum of 60 .and a gravity 
of 1 2 , what is the minimum amount of fuel needed to land with a velocity of less than -5 . 

Or how about this one - You are giving one of the natives a tour of your module while it is 
resting on the surface of the moon. It stumbles into the control panel and suddenly you have 
lifted off the surface with an initial bum of SO units. How many seconds will it take to get 
die moon-being safely home (velocity less than -5 at touchdown)? 



f £F{ 5 EP-HOMg 


Ady- 

WAT 


105 


• o 


The physical model for (his simula(ion assumes 
Here are the equations it uses: 


uniformly accelerated motion (ignoring mass). 


Notation: 


/ 

x 

v c 

V 

V 

a 


time 
distance 
initial velocity 
final velocity 
average velocity 

acceleration (which in (his case is 


the gravity 


of the planet) 


We start with two equations: 


( 1 ) * = vt (distance = velocity x time) 

(2) a = (v-v a ) 1 1 (acceleration is equal to the change in velocity divided by the elapsed time, 

Rearranging (2) , we get 

(3) v = v 0 +at 

The average velocity, v , is 

(4) v = (v Q + v) / 2 (since the acceleration is constant) 

The distance, x , covered in time / is 

(5) ic = l(v 0 + v)/2l I (by substituting into (1 ) ) 
x = l(v 0 + V 0 + at) / 2/ t (from (3) ) 

or (6) X = v Q t +‘Aat 2 
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“ISIS? BURN eV ?; Set0nd - input BURN ■ DURATION . where the 

BURN RATE « the amount of fuel burned per second and the DURATION is the number 
of seconds to burn at that rate. 

Recently ITCHY'S RESTAURANT opened a franchise on the moon. Your coal is to land as 
close to ITCHY S as poss.ble with as small a velocity as you can (both horizontal and vertical). 

and^a VERTIC At ^ ° F *' ,Um "*» P~d«ce bo.h a HORIZONTAL 

T veloci,y Don '' forgM horizontal 

DISTANCE from IT( HV S. as well as the (vertical) HEIGHT above the surface 



^ ND CONTROL CALLING LUNAR LANDER. 

N-BOARD AND GROUND COMPUTERS KAPUT 
TAKE OVER!! 


^ WE,GHt 33000 LBS- AVAILABLE FUEL 16500 LBS 
MATE D FREE FALL IMPACT TIME IS 120 SECONDS 

TO T ^nn TR ° ROCKETBURN RATETO ANY VALUE FROM 0 LBS/SEC 'FREE FALL) 
ITHFr. LBS/SEC * TYPE A COMMA AND THEN GIVE THE BURN TIME LENGTH. 
burni f RN RATE ls THE AMOUNT OF FUEL THAT YOUR r ETRO ROCKETS WILL 
Vnnu EACH SEC0ND THE BURN TIME LENGTH IS THE NUMBER OF SECONDS 
U WANT Y0UR RETRO ROCKETS TO BURN AT THIS BURN RATE.) 

GOOD LUCK! 


SEC 

0 

75 

85 

105 

120 

130 

140 

145 

150 

160 

165 

169 

171 

181 

201 

211 

231 

232 
234 


Ml 

♦ FT 

120 

0 

42 

990 

32 

1223 

16 

4988 

9 

2334 

6 

625 

3 

4141 

2 

4811 

2 

1128 

1 

1466 

1 

111 

0 

4749 

0 

4549 

0 

3723 

0 

2141 

0 

1447 

0 

247 

0 

220 

0 

121 


MPH 

LB FUEL 

3600 

16500 

3870 

16500 

3288.39 

13500 

2178.97 

8500 

1404.62 

5500 

983.016 

4000 

694.948 

3000 

561.658 

2550 

442.146 

2150 

230.247 

1450 

139.031 

1150 

79.5837 

950 

57.0077 

870 

55.5942 

770 

52.1128 

570 

42.3984 

450 

37.4835 

250 

35.2779 

235 

32.4026 

209 


BURN RATE, TIME 

?0, 75 
? 300, 10 
? 250, 20 
? 200, 15 
? 150, 10 
? 100, 10 
?90, 5 
? 80, 5 
? 70, 10 
? 60, 5 
? 50, 4 
? 40, 2 
? 10 , 10 
? 10 , 20 
? 12 , 10 
? 10 , 20 
? 15. 1 
? 13.2 
? 12,3 


ON MOON AT 236.672 SEC - IMPACT VELOCITY 29.5746 MPH 

CRAFT DAMAGE. YOU ARE STRANDED UNTIL A RESCUE MISSION ARRIVES 

HOPE YOUR OXYGEN HOLDS OUT. 


There are two factors that CRASH ignores (its model is based on . > turn ^ . - v » 

which LUNAR includes: 


• the mass of the rocket is being reduced a* fud is burned 

• the exhaust velocity of the gas has a direct effect on thesHocits of the rocket 

(consenarion of moment rum) 


For the marhematicallv-insane. here's a sketch of how these factors sneak in. Fast, some notation 
»’ 0 initial velocity (at the beginning of the time interval) 
v final velocity (at the end of the time interval) 
v e exhaust velocity of the gas ( relative to the rocket ) 
m Q initial mass of the rocket ( before the fuel is burned) 
m r final mass of the rocket (after the fud is burned I 


Now, assume that during the time interval, the bum rate and the exhaust veiocm 
constant. Then the equation for the conservation of momentum becomes 


are 


v - v Q « v f In l m r / m n 1 

= In 1 7 - (nt Q ntr) 1 

= -t> e ltm 0 -m r J/m 0 + << m 0 -m r Hm 0 h i: *■ f ( m<> . m r )/m o ^ , 3 
+ (<m 0 -m r Um 0 ! 4 14 * I <m u - m r ) / m a t 5 / 5 * . . . j 


This formula in dudes both the 
conservation of mumemtum terms 
anti the change due to gravity 



The corresponding formula for computing ; that appears in the program is 


J = V ♦ G*S - Z*Q*(1 ♦ Q»(.5 ♦ Q*(l/3 * Q*(.25 ♦ 0/5)))) 

where J = v 

V = v o 

G = gravity of the moon ( .001 miles sec sec) 

S = time interval 
Z = V, 

Q = ( m Q -m r )/m 0 

The next formula 



| = A - G*S*S/2 - V»S + Z*S*Q*{-5 + Q*(l/6 * Q*(l/12 4- Q/20)} 


is used to determine the new altitude above the surface < A is the altitud 

time interval) It is simply the integral with respect to time of the h&i 1 * bepnrun S of the_ 


equation. 


For those truly fiendish-a (heart. try altering the variable 2 (which is set t 
the exhaust vdocity of the gas, and altering it corresponds (physical!* u ° * This 1 

fud (and possibly the engine design I. 


Mo changing the ,ype og 
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nils IS THF Ci AM I O) 'Rl VI RSI ' IO WIN. Al I YOU IIAVI IO ,S ( 

I K1 Ol NUMBERS (1 fU ROUGH 9) IN NUMERICAL ORIM R K 


TO MOVE, YOU TELL Ml HOW MANY NUMBERS TO REVERSE 
FOR EXAMPLE, II THE CURRENT LIST IS 

2345)6789 

AND YOU RL VI RSE 4, THE RESULT WILL BE: 

543216789 

NOW. IF YOU REVERSE 5, YOU WIN! 

123456789 

NO DOUBT YOU Wil l LIKE THIS GAME OF SKILL, BUT IF YOU WAN I IOQUI 1, 
RLVF RSE 0 (ZERO). 


HERE WE GO . • THE LIST IS 

3 6 8 2 4 9 

REVERSE? 3 

8 6 3 2 4 9 

REVERSE? 5 

4 2 3 6 8 9 

REVLRSL 7 8 

7 1 9 8 6 3 

REVERSE? 4 

8 9 1 7 6 3 

REVERSE? 3 

1 9 8 7 6 3 

REVf RSE? 9 

5 4 2 3 6 7 

REVERSE? 4 

3 2 4 5 6 7 

REVERSE? 2 

2 3 4 5 6 7 

REVERSE? 8 

9 8 7 6 5 4 

REVERSE? 9 

12 3 4 5 6 

YOU WON IN 10 MOVES 


1 

1 

1 

2 

2 

2 

8 

8 

8 

3 

7 


7 

7 

7 

4 

4 

4 

9 

q 

9 

2 

8 


5 

5 

5 

5 

5 

5 

1 

I 

1 

I 

9 



There arc various strategies for playing RE VERSE of both algorithmic and heuristic types. This gives 
the player a chance to explore these concepts in a practical (rather than theoretical) context. 






An atyortthmfe method is a pre-de fined, step-by-step process (first do this, move that, then compote 
this, and so on . . ) that terminates within a predictable number ol moves (given the number of 
items in the list). One of our first questions about REVERSE was whether or not it was ,//tv.n s 
possible to order any list. This was answered by producing an algorithm that u/mr.i A <|j ( | it j n at 
most 2n 3 steps (where n is (lie number of integers in the list). 


Here s how it works: Find where the lawst number is, say in position k Rl VI RSI > V m) u the 
largest number first then REVERSE? n moves it to the end of the list. T his took ’ reverses 
.1 is now in its correct place and it won’t move again. Do the same will, the next largest number 
move it to the front then REVERSE? n-l Two more reverses. This process will pun he largest 
n-2 integers 1.1 their proper positions in 2*(n-2) or 2n 4 reverses We re left w Jih 1 , ^ 

2 - il they are not in order yet. (hen one more move REVERSE' ') .1 °\ V am1 

order. Our algorithm took 2n . 3 reverses. 2 ,M,t * lh * 0,,,,re ,isl »« 






1 ^ ' & ] 


Lint which ha» already appeared 
higher up in llie tree. 


1234 


List which low already appeared 
to the left on the «a me level. 


4231 




First appearance of a li»1 


3124 


3/ I Number to reverse to get frotn 

/ |"higi»er” lint to “lower” Iwt. 


The 2n - 3 algorithm for n » 5 

THE LIST k. 

A shorter way to order this list 




1 HE LIST IS: 



4 1 

5 

2 3 

4 1 5 

2 

3 

reverse? 

3 








REVERSE? 2 



5 1 

4 

2 3 

1 4 5 

2 

3 

Reverse? 

5 


REVERSE? 3 



3 2 

4 

1 5 

5 4 1 

2 

3 

Reverse? 

3 


REVERSE? 5 



4 2 

3 

1 5 

3 2 1 

4 

5 

REVERSE? 

4 


REVERSE? 3 



1 3 

2 

4 5 

1 2 3 

4 

5 

REVERSE? 

2 


YOU WON IN 4 

MOVES 

3 l 

2 

4 5 




REVERSE? 

3 





2 1 

3 

4 5 




REVERSE? 

2 





1 2 

3 

4 5 




YOU WON IN 7 

MOVES 





In addition to proving that every list can he ordered, we have constructed an upper bound on the 
number of reverses, namely 2n - 3 , for an n*clemcnl list. Can we always do better? 

To ask whether we can do better than 2n - 3 can be confusing. Suppose the initial list were: 

543216789 

REVERSE? 5 would order it in only 1 move! So we ask whether we can always do better. 

We’ve tried essentially two different approaches to solving this: \ ) exhaustive methods and 
2) methods involving partial orderings. To date, we’ve been unsuccessful with both approaches! 

An exhaustive method we tried involved working backwards. Starting with the list in order, we 
attempted to construct a tree as follows: the ordered list at the root; n - l branches corresponding 
to the lists you get from moving REVERSE? 2,3,..., n (REVERSE? 1 is the identity); 
then from each of these (and subsequent nodes), n - 2 branches (excluding REVERSE? 1 and 
reversing the same number that just got you to this node - i.e. if you just reversed 5 to get to this 
node, then reversing 5 again would give the same list as you had two nodes ago). Each path 
through the tree corresponds to a sequence of reverses. What is the least number of levels in the 
tree that you need to produce each of the n! possible lists ( the number of levels will then be the 
maximum number of reverses you will ever have to do)? 


, */ 3 \ 

““V * 1 

^4?3i ; 1342 2143 4213 ( 4231^1 1423 4132 3412 


3/H 

t 

2314 


, WM * ye. - how do you prune du P H— — ■»*« « 
Bletch! n = 5 is already too big to draw, 
these pairs of reverse sequences for awhile 

1 3 4 2 1 . 1 2 3 4 2 3 ) 

o, t 2 4 3 5 3 1 . I 5 3 4 2 3 I .. , , WoU |d you really have guessed 

You guessed i, - die sequences in each pair 
it’ We sure don’t sec a pattern. Maybe you can in 

s” By “partial ordering we mean 
The heuristics we have explored make use defending order. The idea is to try to move 

that one or more parts of the list are in ascending or desce 

each of these parts as a unit. 


This move extends the ordered 
sequence 543 to 6543. 
Now 6 5 4 3 c*n be treated 
as a unit so that (eventually) 
when 6 is put in place, 3 . 4 . 
and 5 will also end-up in place 
on the same move. 


Joins two sub-ordering» 


Here's an example: 
THE LIST IS: 

6 2 8 
REVERSE? 5 



4 3 


9 8 




The 3 4 5 6 group * n<i 

2 1 group arP in ,,M * 
order to br joined with one 
reverse. If the list had been 

3 4 5 6 1 2 0 H 7 then 

they couldn’t be linked in 
one move. 


The <) » 7 i* in the “wrong” 
order - we‘11 have to move 
them up front, “fix tin* order, 
and then put them back. 


O K. The list »: 

6 8 3 5 2 4 7 9 1 

REVERSE? 3 do pu. the 6 and 5 loge.hcr) or REVERSE? 6 (to join the 6 and 7). 

II probably will mailer laler in this game which way you do it, but wc don I know how to 

figure out which choice is belter at this point. 

* 

An algorithm guarantees a solution in a deterministic (pre defined) manner within a known number 
of steps. A heuristic is used to get you closer to a solution. Unlike an algorithm, a heuristic does 
not guarantee success. Instead, a heuristic seeks to “improve” things locally. Using a heuristic 
approach often helps you to gain a good enough understanding of the problem to create an 
algorithm. 


ie fundamental problem we’ve had with analyzing these partial-ordering heuristics is. What is the 
'orst case, that is, which scrambling is the most unordered? How “ordered” is list A ? Is list A 
more “ordered” than list B ? Until we can apply our heuristics to the worst case, we can’t say how 
many reverses it’ll take. And we can’t do this until we determine what the worst case Is! There s 
more bad news. The worst case for one partial-ordering heuristic may be different than the worst 
case for another one - there’s no worst list! Help . . . 

In practice, we used a “mixed” strategy of the 2n - 3 algorithm and partial-ordering heuristics. 

Wc consistently seemed to do better than 2n - 3 reverses hut ... 


no 


4 

y 


EVE.RTERX 

Mxi * 


Some variations of REVERSE to play with: 

• Reverse from either end of the list 

• REVERSE? I,J - starting at the 1-th element, reveree J 
(1=1 is the case we’ve been talking about) 

• REVERSE in 2-D - Reverse any row or column of an n x n grid 

. P S. Wc won’t mention REVERSE on an arbitrary topological network 
(or even try to define the operation) 



WE START WITH A BOARD LIKE THIS 

1 2 3 4 5 6 7 

oooooooo 

YOU AND I TAKE TURNS WE CHOOSE ONE OF T HI NUMBERS AND I DR AW A BRIlH.I 
BETWEEN THE TWO Os BELOW THAT NUMBER ONCE AN O HAS HI I N list U I OK A 
BRIDGE, IT CANT BE USED AGAIN. 

FOR INSTANCE. IF YOU CHOOSE THE NUMBER 3 . 

1 2 3 4 5 6 7 

?3 O O O — O OOOO 

THEN I CANT CHOOSE THE NUMBERS 2 OR 4 


THE WINNER IS THE LAST PLAYER WHO CAN DRAW ABRIDGl 

P S. IF YOU W ANT ME TO MOVE FIRST. PRESS THE Rt 1URN’ KEN I OR NOUR I IKM MOV I 



ZEROS is a portioning game. Each move partitions one group of numbers in In two dfctfincf groups 
(sometimes, one (or even both) of these groups may be empty L 

Look at the sample game played. Initially there was I partition of number* After moving * 
(which eliminated 2,3. and 4 ) , there were two partitions | I | am! ! s h , | Moving 

5 partitioned [ 5.6,7] into the empty partition 1 0 | and | 7 | , a one -element partition 
(If we started with 17 numbers, then moving ^ would create two partition*, < .;• h containing 
7 numbers.) 

Your strategy will depend upon the number of non-empty partitions and their \i/ev If one of the 
partitions were 

1 2 3 4 5 

O O O O O O 

then moving 3 would leave 2 moves ( 1 and 5 ) but moving 2 would leave only I move (either 
4 or 5 but not both). If this were the only partition, you would choose 3 However, tf there 
were just one other partition containing a single number, you could move 2 to win 


This version of ZEROS goes up to 18 numbers, which should be enough to get vnu Started” 
See what you can discover about the general case of p partitions, where the . ih partition, p . 
contains n i elements. 


As a “slight” variation, suppose the zeros were arranged in a circle like this 


* o * 

o o 

A v* 

O I the magic circle) O 

& 

o 

e o 

How does your analysis change? 



How about ZLROb on a two-dimensional grid where a move eliminates all number* m the sam,- 
row and column (or should it be only those number* that arc in the partition you’ve j Ufc , 
in)? We won't even suggest ZEROS on a cube with planar partition, (in general n-slimensbMnl' 
space with hy pcrplane partitions), nor will we even hint at playing on arbitrary topological ’ 
networks. 

TAKE fyT VOID 
Fet IT, DESf 
COMPUPI& ^ 

6 A MIS 




i ^ 


-:o: 




'let me reu. you 

l-R>W IT BE - 

It'S £*)& FtfR yoD 

~f/09t^/O p>e MC- ^ / 
ca^ € T1+E 


~QtATU?5 
'47 









YOU TRY TO BEAT THE TAXMAN. 

WE START WITH A LIST OF WHOLE NUMBERS IN NUMERICAL ORDER 
(YOU DECIDE HOW MANY). 

YOU TAKE A NUMBER FROM THE LIST - THE TAXMAN GETS ALL THE 

FACTORS OF YOUR NUMBER THAT ARE STILL LEFT. Y 

AND ALL ITS FACTORS ARE THEN DELETED FROM THE LIST. 

FOR EXAMPLE, SUPPOSE YOU WANT 10 NUMBERS TO BE IN THE LIST 
THEN THE LIST WOULD BE: 123456789 10 

IF YOU TOOK 8 , THE TAXMAN WOULD GET 1,2, AND 4 AND THE 
NEW LIST WOULD BE: 3 5 6 7 9 10 

THE TAXMAN MUST GET SOMETHING EVERY TIME SO YOU CAN ONLY 
PICK A NUMBER THAT HAS FACTORS LEFT. 

WHEN NONE OF THE REMAINING NUMBERS HAS ANY FACTORS, 


YOUR SCORE IS THE SUM OF THE NUMBERS YOU TAKE. 
IF YOU WANT TO GIVE UP. TAKE 0. 



GOOD LUCK! 

HOW MANY NUMBERS DO YOU WANT IN THE LIST? 10 

THE LIST IS: 1 2 3 4 5 6 7 8 9 10 

YOU TAKE? 8 
YOUR TOTAL IS 8 
I GET 1 2 4 
MY TOTAL IS 7 

NEW LIST: 3 5 6 7 9 10 

YOU TAKE? 9 
YOUR TOTAL IS 17 
I GET 3 

MY TOTAL IS 10 
NEW LIST: 5 6 7 10 
YOU TAKE? 6 

THERE ARE NO FACTORS OF 6 FORME. 

ARE YOU TRYING TO SHORT-CHANGE THE TAXMAN? 

YOU TAKE? 8 

8 IS NOT IN THE LIST - TRY AGAIN. 


YOU TAKE? 10 
YOUR TOTAL IS 27 
I GET 5 

MY TOTAL IS 15 
NEW LIST: 6 7 

I GET 6 7 BECAUSE NO FACTORS OF ANY NUMBER ARE LEFT. 
MY TOTAL IS 28 

TAXMAN 28 YOU 27 THE TAXMAN WINS. 



For playing TAXMAN at picnics, at piano recitals, at perennial places, or wherever the urge is 
overwhelming, as an added attraction we are introducing 



AtOYt oN \MlCH NUMBER, is TAKEN ^ 

ir i ; i i vsr 

/ / 2 / 3 t r / 


X/c> NUMBERS ARE THE 
}NES THE TAX1MAN frtT *. 

(P.S. This is thr tamr pamc jitsl plavrd. ) 




No Factor* of 
ARC LEFT So THE 
TAXMAVlons 'EM. 


the 

(rlT. 


/|jp I^ODUC.INlC'r. 



IWMAX 


M:,x says, "I want ■<> play TAXMAN so that 
I can gel the maximum score for each list.' 


TWIN 


Minnie says, ‘‘I want to play TAXMAN so that 
I can get the minimum score for each list 


lA$T 
BUI t-EA$ 

t\ innie. 



Some Sucj^evVlon* 

§try playing 

tax max 


% 


•# 


<x 10UR io f 
' 3 ih * 

- ' j &k 

- - .>. --ns* 



One way of playing TAX MAX and TAX MIN would be to try all possible combinations of moves 
and to compare scores - also known as the exhaustive search. This sort of mentality has resulted 
historically in computer manufacturers building bigger and faster (and of course, more cost y I 
computers, rather than programmers writing more efficient programs. 


Try to compute an upper hound on the number of turns you will have. The Taxman must get 
at least one factor every time you get a number so you can get at most half the numbers in 
fist. 

In most lists, you can’t even do that well. You can get at most one prime n>™ber( the Taxman 
gets the rest). The smaller primes can be used as factois for getting larger iium is 
But the larger primes (those that aren’t proper factors of any number ,n the *.) go to the 
Taxman without you getting anything in return. It’s as if the Taxman go. them before you 
See if you can figure ou, how these ’’larger’’ primes affee, your upper bound. 

After you have determined an upper bound. U\ 

If you can get U numbers and they are the largest you could get (except for those impossible 
Prim“s ton vou have a maximum. (The fun starts in those lists where „ ts "'.possible oget 
rnuim or where you ’’lose” some of the larger numbers you though, you should have 

gotten but couldn’t.) 

. , ■ „ ...w use of each factor. The best use for the factor I is to take the largest 

z -- ,hc — 7 in "r? roup ,,f ^ numbers ” and 

!, is the larges, number remaining that has only one factor left. 

„ . *• h number in the list. Whenever a number Ls chosen, cross off all 

Write down ' l J s a ^ jnj ‘factors (and the number itself) for the other numbers left in the 

occurrences lh „ best use to make of the remaining factois is to select a member of the 

liS '' Tbiraesl'nmnbers " that has only one factor left. (Figuring out what this group is can 
••group of large you won -, gc t a maximum if you pick numbers that are 

be quite an exertion - ,uta 
“too 1 * small!) 

.. .• „/, these conditions is not always possible. When it isn’t, either you, upper bound 

will chmtge or your ’’group of larges, numbers” will be modified tor even both!). 


WARNING THE TAXMAN HAS DETERMINED THAT TAXMAX 
MAY BE HAZARDOUS TO YOUR HEALTH!! 


A TAXMI.N hint 


. . . f A XMIN follows ’’easily" from a simplified version of TAX MA X. TAXMIN i 

list of S, 'n numbers is “similar” to TA t %tfgX y ana list of n numb r. nifij q "little extra" 
Ihrown in. Experiment and then see if you can derive the reiatiohsliip 
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Number Guessing Games 


NUMBER 

|»'t> R|M NUMtUR A NUMBER GUESSING GAME 

U<» REM COPVHIOH1 PEOPLE’* COMPUUW COMPANY 

rim • ** r. o. hox ,)im minlo tank ca vaops 

KIM ♦ PRINT I NS T RUCTIONS ON MOW 10 PLAY 
PH' PRINT "| WILL THINK OK A WMOLIC NUMBER FROM I 10 100." 

PRINT "IKY 10 GUIHS MY NUMHM. AFTER EACH GUESS# I WILL" 
*** PRINT "HU YOU ir YOU HAVE QUESSFI) MY NUMHEH OR IF YOUR" 
**0 PRINT "GUESS IS 100 SMALL OK 100 HI 0.** 

'00 KEN *♦* COMPUTER MM INKS’ OF A NUMHEK - CALL II X 
3 10 111 X«lNTtl0*«ftNDCft>>*| 

Av'0 PRINT 

3'0 PRINT "OK > 1 HAVE A NUMBER. START GUESSING." 

40 A KI M ♦ HUMAN MARTS GUI SSI NO 

*10 PRINT 

*P0 PRINT "WHAT IS YOUR GUESS” I 

MIA TNPUl 0 

4*0 IF THEN MO 

*3# U 6*X THIN 44 0 

*^0 PRINT "TOO SMALL • TRY A LARGER NUMHEH." 

*7# GOTO 4|0 

4R0 PRINT "TOO RIG. TRY A SMALLER NUMBER." 

**0 GOTO *10 

>00 REM HUMAN MAS GUESSED THE COMPUTER’S NUMBER 

M0 PR TNT 

300 PRINT "YOU GUESSED IT MI LET’S PLAY AGAIN." 

M0 PRINT 
>40 GOTO 3 10 
«** END 


STARS 


100 
1 10 
1*0 
I 30 
1 *0 
ISO 
| A 0 
I TO 
ISO 
1*0 
800 
8 10 
8*0 
030 

e*o 

8 SO 
800 
*70 
0P0 

8*0 
SOO 
310 
300 
330 
3 40 
330 
3A0 

3 TO 
300 
3*0 
400 
410 
4*0 

430 

440 

430 

440 

4 TO 
4R0 
4«0 
300 
310 
380 
33« 

340 

330 

360 

3*8 

300 

3*0 

60 # 

610 

480 

630 

6*0 

630 


REM ••• STARS STARS *** STARS STARS STARS 

RFN COPYRIGHT 1*74 RY PCC# P-O- BOX 310, MENLO PARK CA 

PRINT "WELCOME TO MY GALAXY* I ’M IN CHARGE OF THE STARS HERE." 
PRINT "PLAY MY GAME *STARS* AND GET SOME STARS FOR YOURSELF I" 

PRINT "WANT TO KNOW HOW 10 PLAY" I 

INPUT 1*11.1 3 

IF If «► "Y" THEN gPO 

REM HERE IS* HOW TO PLAY 


'HINT 
=>R|NT 
INI 
»R INI 
’KTNT 
’HINT 
' * l N 1 
’S' I NT 
I CM •• 
rT X* 


"I will think of a WHOLE number FROM I TO 100." 
"TRY TO GUESS MY NUMBER. AFTER YOU GUESS# I" 

"KILL TYPE ONE OR MORE SlARS <•). THE CLOSER" 

"YOU AST TO MY NUMBER. THE MORE STARS WILL I TYPE. 
"ONF STAR <•) MEANS YOU ARE FAR AWAY FROM MY" 
"NUMBER* SEVEN STARS (♦***♦••) MEANS YOU ARE VERY# 
"VERY. VERY CLOSE TO MY NUMBER III” 

COMPUTER 'THINKS’ OF A NUMBER FROM I TO 100 
I N T ( I 00 ♦HNDC 0 > > ♦ I 


PRINT "OK. STARSEEKER# l AM THINKING OF A NUMBER. START GUESSING." 
RIM *♦* GUESSING HEGINS 


ET N« I 
R l NT 

PINT "WHAT IS YOUR GUESS" I 
NPUT G 

F G«X THEN 330 
ET D-ABSCG-X) 

F D >• 6* THtN SO0 
r n ** 38 then 4*o 
F D *• 16 THEN *A0 

f 0 »■ « THEN 470 
f 0 ». 4 THEN *60 
F D >* 0 ai0 

R1NT " •** I 
RINT •’ ♦"» 

R I NT ’* *"» 

R I NT ’’ *’*» 

KINT " *" * 

HINT " *”» 

SINT ’’ *”1 
^ I NT 

FT N«N*I 

W°.”V*»W HAS GUESSED THE GALACTIC NUMBER 
;>« k« | TO 10 

SINT »♦ •♦"» 

EX T K 

(INT "THAT'S mil TOU GUESSED MY COSMIC NUMBER I N" ) N, "GUESSES." 

SINT 

UNI ”WANT TO PLAY AGAIN"! 

HPUT XfCl.U 

Mnt‘"Oh/o5oM^E FOR nor. PLAT pith HE AGAIN SOME-HEN." 


X 

s 

-i 





* *- P- t- X t- 

2 221523 O <S 2 O Z O Z 020 

b~ — I — £ — X ►- »- —I ~ *-0 

useuxtr ZXZWOU.ZOS oshiczoz 
jOLja.i- 1 -jo-a. oa.131 jot ow 


GG6SGSS$SSC5 GSSSSSSSCi 

c — cvnw^><or.(c9>«: — fun ^ « r« s : o s 

nnnnn«nnnr><? w ^ t * * w £ * * 


a. cl 

25 


CL CL 
« X 
a: O 

»- o 


a. a ■» 
< o : 
x UJ m 
#- o. z 


HIM- 
o : — irt 

n Z G 

« a 

• x OJ 

♦ o p- 

. — Z Z 

x <t ^ 

a. >- 3 x 

<x CL P- 

103- 

h- o o — : 


• * o ^ 

• * c <*' 

: iv 

X X 

X x n p- 
<t <1 z o 
■z X “ a. 
ui u ir z h 
X X o. — 


: « in : 

OS O S X X 

zj: s x — uiO 

— _i >- r ui cc o 

>- io i . r > 

X — Z 3C “ 

i- LflSwZL 

. — x z x o 
• crt (4 r a 
i3zzau*«w 
; xuioxczxz 

. UJ X 3 X I- o 

K X E X Z *- >- 
SE3W £ X •-/> 

-020X0 0< 

2 2 < * - O 

O 

I- O <1 Z — X £ 

-4 X S i * < 

-r-(->-00<lZy> 

£ 4 O X ui 

£XO r- y r- Jj ial 
O III J Q 4 1 

JJr-MUIlZWi- p- 
U. 2 X O <5 > UJ 

urioKi ji 
X 04>«-X*- 
W • O X 

xx>^-zxo^sx 

£ uj <i^o — u: 

orvuJxo>* a 

Z£X>p-r <££ 

O C <i — UJ o 

czxxxjcxz 
Ui UJ X £ 
li>sc J Jiflf J> 

0 ££OJ— z£: 

3 >- « O 

X lO 2 £ X O >- tfJ i 

2 tT* U. ui > £ u. S 

— ui >- — X <■ - 

XO£ si £ J r- x : 

Pc 3 - o j < i : 

x o z ui x uj : 

_jo<tvr t-p-x; 

JrZ UJ >- 

— t-JU-Z • I 

3 >. _J £ C < 

xOu,Ou.u.Uix: 

— — 2— — £0» 


O X 
a < 
V X 


zzzzzzzzzzz^zz^ 

xxxxxxxx xxxxxxx 

xxa.xo.xxxxxxxx — x 


KSSSSSKSSS 
® — Cvjn*</i'Anxc*- 


;SS®S©® SSS 
j. — tv- n < ifl'Of' 
OJCVJCwOJCWeUCVOiOJOi 



4P P 6 





ABASE 



3 X 
o 4 
>- y> 


o - 
z 

O X 


-i o 
♦ 

r r- u 


z t- 

— X 

r w 
a. Z 


rsisnso 

D®j-noxo>- <£ *» 
r- : C\J : r oo : : < 

rozozz oz ♦ zp 
~i— •— > ““ ?b 
eoxorxox « ? z 


II z : 

LJ 
— i 


*ft II 
4 >- 

u. u. 


— O 
CE Z 
X UJ 


} ® K S c 

- <V) <*> 4 “ 

5 »n i/> i a u 


gggSSS? SSSfjgpSSSS 

ijnS'C'O'OO'C ^o^'Cr'r-r'r'r-r* 


i r; r> 

i % 

«. ~ o 


s * 
— z 

N 

o ~ 


- 3 O ** I-* *- “> CCS 


- — -5 
i II •- t 
3 O * 


i— m *— * 


— or ► 
x o a 

OL U. 0 


C l- Z < 
X -• ► 
iwirc 
- Z CL C 


■ “1 “3 ‘ 

S ~3 — — ^ — 
n 4 ♦ 4 ♦ I- < 
ox CJ ox 
HOU.HU.WWU 

O U. - O ~ o z - 


► < ♦ 
3 O 
I U. t» 


n "3 

-3 w. 

4 ♦ 


®s®s®®®®®®®ss®® K ss®®®®®5?®5S 

-wo4»n^f-coo>® — cvj«^ 

NftjWWCVjRiRiftiwnnrtnnnnnnn^^^*^ * * ^ * 


• 2 

• O 

• <r 


• y» O uj 

• UJ x 

• a: u. nr 


• £ uu - 

•4X0 

• O r- 


* 3 ;fl _) 

♦ O r- _I 

• Z 4 

• TT u: X 
U O 

tc uj ui 
rjrocu’ 
43 r - 

r z ui i 

o x x a 

OVII- 3 » 

r -i 4 -» 
A!*J> jn 
ox 

a 4 

uj x ■ 


3 : o 

3 uj 4 
- 0-1 
4 CL 


I O X 
I X O 
• * O 


S Z Z X 

L O 

O 

3 t/> i/> 


' z n 


Ui 4 


X £ Z Z Z Z 
UJ UJ UI Ui UJ UJ 
or a: ac x a: or 


» 

— O' c 

oc x - : 

— r 4 — <> 

X UJ f. ac 

»- u. x a 2 fw 

z I o w • O 

o O — O -« «/) 

o o a: a e 4 

— >• Q — n 
a. x o w m 

* • O X *• — 

* • UD.4S 

* t t £ £ * 8 

Ui Ui UI — «L II 

z r x * o z > 

QE 

e e s ® s ® 

_ S - (V n 4 .13 


4 X 
S 

U. 2 

— o — 

O uj 

z z > 

UJ — 4 
xxx 


" z X 

~ 4 X 
— 3 


0 O — 

o 

a o - 
o 

UJ UJ 

z z o 
o o z 


<n j 
— J n < 

O £ UJ c 
0X00- 
— UJ 4 *- .. 
fi. U. t 


: - z 


<j3za4zzzz z 
cv — a. a- 

HXZU.XXXXXO 
*-X £L CL X X 1 U 


rs. 


K X 
UJ UJ 

z z 


^k^£ 5ssssss ®ss 


CLOCKS 


1000 REN - CLOCKS 

1020 REM - PEOPLES COMPUTER CENTER * MENLO PARK * CA. 

1040 REM - CONCEPT : BOB ALBRECHT 

1060 REM - PROGRAMER : RAY COOP 

1080 REM - THANKS TO PETE SESSIONS AND GREG YOB 
1100 REM - *•«••*••*•*••••* 2/5/13*, .*•*•*•••••**•*••*• 

1 120 PRINT ”DO YOU WANT INSTRUCTIONS"! 

1 1 40 INPUT QIC 1 * I ] 

1160 IF QS="N" THEN 1620 
11R0 REM «**•*•«••••. MNTRO. ••••+•+ 

1200 PRINT ""I 
1220 PRINT "I'M THINKING OF A TIME BETWEEN 0:01 (1 MIN *. 

1240 PRINT "AND 12:00 NOON. YOUR JOB IS TO TRY TO GUESS iHt 
1260 PRINT "THINKING OF 

1280 PRINT -s 

1300 PRINT "AFTER YOU ENTER YOUR GUESS , A SET OF CODE £OKU 
1320 PRINT "TELL YOU HOW FAR YOUK GUESS IS FROM MY TIME. 
1340 PRINT 

1360 PRINT "CODE WORDS 8" 

1380 PRINT " MEGA - HOURS CORRECT." 

1400 PRINT " KILO - MINUTES CORRECT." , 

1420 PRINT « HECTO - HOURS OFF BY AT MOST ♦ OR - Z* 

1440 PRINT " OECA - MIN. OFF BY AT MOST * “ 2 * . 

1460 PRINT " DEC I - HOURS OFF 8Y AT MOST ♦ OR - 3* 

1480 PRINT " CENTI - MIN. OFF BY AT MOST ♦ OR - 5* ## 

1 500 PRINT " MILLI - MIN. OFF BY AT MOST ♦ OR - 

1520 PRINT " MICRO - MIN. OFF BY AT MOST * OR * 

1540 PRINT " BLA - COMPLETELY OFF IN HOURS OR MIN- 

1560 PRINT 

1580 PRINT " FORMAT s HHJMM OR H:MM ONLY." 

1600 PRINT 

1620 D1=INT<RNDC0>* 720 ) ♦ 1 
1640 0= I NT ( D 1 /60 ) 

1660 E=DI-D*60 

1680 IF D= 12 AND E= 1 THEN 1620 

1700 PRINT "0 * K • I HAVE THOUGHT OF A .TIME.” 

1720 DIM A C 4 ] 

1740 MAT A=ZER 
1760 DIM T SI 101 
1780 R=M = 0 
1800 DIM CSC 72 3 
1820 DIM OSC 1 3 
1840 T$=" 0123456789" 

1860 DIM DSC 10 3 

1880 REM ****•*••••••♦•*1 NPUT* • ••••♦** 

1900 IF M>0 THEN 1960 
1920 T* I 3 
1940 GOTO 1980 
1960 T=0 

1980 PRINT TAB (TV YOUR GUESS"! 

2000 INPUT CS 
2020 R*R + 1 
2040 M=M ♦ I 

2060 REM ***•**•*•• • ****PARSER *•••*♦*•**•* 

2080 LET 1*1 
2100 LET J=1 
2120 D$*"" 

2140 IF I >LENCCS) THEN 2280 

2160 IF CSC 1/13=" " THEN 2240 

2180 IF CSC I , I J=" THEN 2240 

2200 DSC J, J3=CSCI * I 3 

2220 J*J* 1 

2240 1*1+1 

2260 GOTO 2140 

2280 IF LEN(DS)=4 THEN 2360 

2300 CSC 1 # 1 3="0" 

2320 CSC23=DS 

2340 D$=CS 

2360 FOR 1*1 TO 4 

2380 0 S= D$ C I # I 3 

2400 FOR J*l TO 10 

2420 IF 0S4TSC J> J3 THEN 2460 

2440 ACIJ*J-I 

2460 NEXT J 

2480 NEXT I 

2500 REM ••♦••••••••••CONVERTED INPUT T IME*»******* 

2520 A5*10*AC I 3+AC23 

2540 A6*10*AC33+At43 

2560 REM ••••••••♦•••••COOE WORDS ••♦•••• • 

2580 REM ♦♦••••♦•••♦***H0URS****4******** 

2600 IF A5=D AND A6*E THEN 3240 
2620 IF A5 = D THEN 2820 
2640 F*ABSCA5-D) 

2660 IF F <3 THEN 2780 
2680 IF F <6 THEN 2740 
2700 PRINT "BLA "! 

2720 GOTO 2860 
2740 PRINT "0EC1 "J 
2760 GOTO 2860 
2780 PRINT "HECTO"! 

2800 GOTO 2860 
2820 PRINT "MEGA "! 

2840 REM ♦♦••♦•••••••••♦MINUTES********* 

2860 IF A6*E THEN 3180 
2880 G*ABS(A6-E) 

2900 IF G<3 THEN 3140 
2920 IF G«6 THEN 3100 
2940 IF G«1 1 THEN 3060 
2960 IF G<2 I THEN 3020 
2980 PRINT " BLA "I 

3000 GOTO 1880 
3020 PRINT " MICRO" I 

3040 GOTO 1880 
3060 PRINT " MILLI"! 

3080 GOTO I860 

3100 PRINT " CENTI"! 

3120 GOTO 1880 1 

3140 PRINT " DEC A "I M 

3160 GOTO 1880 r 

3180 PRINT " HILO "I M 

3200 GOTO 1880 W 

32 20 REM •♦♦♦♦♦••♦••♦♦••♦HUMAN ELEMENT********* 

3240 PRINT "•••*•*.••*•*•* YOU GOT 111! !l|||*« 

118 


M I ON I GH T > 
TIME I •«’* 


3260 
3280 
3300 
3320 
33 40 
3360 
3380 

3400 
3 42 0 
3 440 
3460 
3 480 
3500 
3520 
3540 
3560 
3580 
3600 
3620 
3640 
3660 
3680 
3700 
3720 



IF R « 5 THEN 3400 
IF R < 1 0 THEN 3360 
PRINT "FINALLY, AFTER-1R!' 

GOTO 3420 

GOTO 1 3 420 ‘ ,R,,,6UESSES THAT'S ABOUT PAH FOR THE COURSE* 

SIS 2S? u 5 5 J*: t s«- t we «"in G «oodi" 

GOTO3600 T ° BET1ER Y0UR SCORE NEXT TIME 

print -pehfect B scoreI" U G0T 11 IN 0 N E GUESS * 1MA1 

PRINT » WE W °tu? L ! KE T0 TELL Y0U THAI: - 


GUESSES YOU GOT IT!" 


T ----- ' ~ I UU ihai: 

22 LO IS PK0U0 0F *0U.~ 

nYMo» C ?t' llRY ls PR0UD 0F » 0u -" 

DYMAX is PROUD OF YOU." 

AND most of ALL I'M proud of YOU." 


print 
print 
print 
print 
print 

K -.ONE more time-, 

pR,2r3; «•« 

PRINT "SEE rou LM«" 


A" 


©UADGT 


10 

20 

30 

40 

50 

60 

70 

60 

90 

100 

110 

120 

130 

140 

150 

160 

1/0 

180 

190 

200 
210 
220 
230 
240 
250 
260 
270 
2d0 
290 
300 
310 
320 
330 
3*0 
350 
3 SO 
370 
350 
390 
*00 
*10 
*20 

♦ 30 
**0 
*50 

♦ 60 
*70 
*80 
*90 
500 
510 
520 
530 
5*0 
550 
560 
570 
590 
590 
600 
610 
8 20 
630 
6*0 
650 
660 
670 
680 
690 
700 
710 
720 
730 
7*0 
750 
760 
7/0 
730 
79* 
dOO 

aio 

620 

830 

3*0 

850 

660 

0 70 
650 
690 
950 
910 
920 
530 
9*0 
950 
9S0 

533 

■Wfl 

190 0 

1519 

1 4*0 


DIM AK5 3.0SU0) 

OS-"0 123456789" 

D EF FNA(X)=INf (10*PNO<1 ) ) 

PRINT "00 YOU WANT TO SEE THE r W c TDll , 

INPUT »* INSTRUCTIONS”! 

IF Ail 1 .1 1 = "Y " THEN 100 
IF A S t 1 * 1 ) = "N" THEN 280 
PRINT "I SA 10 * "I 
GOTO 40 

print -this game ,s played as pollows, 


PRINT "I WILL CHOOSE A 4 DIGIT muo „ 

print ..your uoh w,ll he to p.oure S 5 ?\ h S SMTS I 2 K. 5 e THE SAME > 

PRINT "RESPONQ^w i ?h*" a^2^D i Gi't^NUhrer ‘ .'J UHHKR ’ ' w ILL" 

POINT "THINGS. P|.!ST. I TEU YOU Hoi m?ny ntr? 7 SE '"'"CATES TWO" 

PRINT "IN THE NUMBER I CHOSE. SECOND, t Ip,”. ^ Y0U C>"t SSEO ARE 

PRINT "ARE PLACEO IN THE CO«ftECTPOSUt,LwWH^ A " AN ' n IG 1 TS' 

PRINT "NUH 8 ER." U>I I TON WITHJN THE CHOSEN" 

PRINT 

PRINT "FOR EXAMPLE * IF YQu GUESS i & c, ,i,d , „ 

PRINT "31 THEN Y Oil GOT 3 OF THE n ?,?k W£SP0M) 

print "answer hut only o.sf f) t vi , r i£ 6 !n S tI!J? APpeap in r ^t" 

PRINT "THUS. THE NUMBER I CHOSt COULD Po^tA. ,0N *“ 


PRINT 



TRY AGAIN" 


TRY AGAIN 


CHOSE COULD POSSIBLY bE 0364." 

PRINT "THE EXPERIENCED PLAYEm ‘jrii , ul .UA,'r c „ 

PRINT "ENTER YOUR FIRST * DIGIT GUFSS^ ^ 5 6 GUESSES PER GAME." 

A(11=FNA(1» ** 

FOR I =2 TO 4 
All !=FHA ( I ) 

FOR J=1 TO 1-1 
IF All J=A( Jl THEN 310 
NEXT J 

next r 

L = 0 

ENTER ?55«I.AS 
IF i »-?56 them *io 

PRINT LIN(I) ,"THINX A LITTLE FASTER, PLEASE." 

GOTO 370 

IF LEN(AS)=* THEN *40 

PRINT LINU) ."ENTER EXACTLY 4 DIGITS" 

GOTO 370 
FOR 1 = 1 TO 4 
FOR J=0 TO 9 

IF AS[ I , I 1 »0SJ J-*- 1 , J* l J THEN 490 
Nt I )~J 
GOTO 530 
NEXT J 

PRINT USING S10ILIN1 1) , AS( I .1) 

IMAGEA.X,"IS AN ILLEGAL CHARACTER. 

GOTO 370 
NEXT I 

FOR 1=1 TO 3 
FOR J=I»1 TO 4 
IF ASH, I 3*ASCJ,J) THEN 600 
PRINT USING 580 ILINU > .ASII.I) 

imagea.x, "appears more Than once. 

SOTO 370 
NEXT J 
NEXT I 

M\=H3=0 

FOR 1=1 TO * 

FOR J=1 TO 4 

IF Ntil»A(J) THEN 700 

Kl=MI*l 

IF I»J THEN 710 

M2=M2*t 

GOTO 710 

NEXT J 

NEXT I 

PRINT USING "0,0«:SPA(5) , Ml »M2 

L=L* 1 

IF »*2« 4 THEN 800 

•S«E .f»r*0U 7 Gol\r IH 20, " GUESSES. PLAY ANOTHER GAME" 

INPUT AS 

IF ASII*1I="Y" then 280 
STOP 

IF L-19 THEN 1000 

IF LX1 2 AND LAIS ASO L*18 THEN 370 

ENTER 3»I. AS 

IF I *-256 Then *10 

PRINT 

IF L=1S THEN 910 

If L = 18 Then 950 jcrr--i*ER HtRfc'*S A MINT." 

PRINT -VOU ARE OBVIOUSLY A BEGI i^R. HtHt 

PRINT USING flVOsAllI 
IMAG€*T«E first DIGIT IS A 

begthhing to COSE my PATIENCE.” 

»WINT USING 5-»0:Ari).At2J 0 0/ mif YOU CAN’T GET IT NO*. GIVE IT U. 

IMAGE-THF first t-o digits are 

GOTO 370 .... pomjT IT OUT." 

PRINT "HER£»5 A-, I0£A, rr L L V T o.; C X IMS "5 

SIS -SSJrJT^JKS.W-SS.* 

0910^378 £ OTHER GAME. SETTER YET. LOG CFF." 

PRINT "I PUIT. GO FLAY SO*£ 

STOP 

END 


BUTTON 


10 
5?0 
30 
40 
100 
1 10 
ISO 
130 
140 
150 
160 
170 
200 
210 
220 
230 
240 
300 
310 
320 
330 
34 0 
350 
360 
3 70 

3 BO 
390 
395 
400 

4 10 
420 
430 
440 
44 5 
450 
460 
470 
4 BO 

4 90 
492 
495 
500 
510 
520 
530 
540 
550 
560 

5 70 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
10 70 
1080 
1090 
1 100 
I l 10 
1 120 
I 130 
1 140 
I I SO 
I 160 
1 I 70 
1 1 HO 
I I 90 
1200 
12 10 
1220 
1230 
I 240 
1250 
1260 
1 2 70 
1 2 HO 
9999 


HEM BUTTON* HUTTON. WHO'S POT TfW “i! T ™!jL ? 

HEM ***** WRITTEN HY DA^E KAUFMAN * AUGUST 197. 

HEM *** PEOPLE'S COMPUTER COMPANY •»» 0?s 

HEM *** 1919 MEN ALTO AVfNIfE* MENLO 1 AHK* CA. 

HEM FNM COMPUTES X MODULO 7 h,,TTON 

HEM FUN COMPUTES THE NEXT ONE 10 NET THE HUTT01 
DEF FNMCX>«(X«=0>*7*<X>0 AND X<b> *X* OC-8 ) * » 

DEF FNNO >-FNM(X + 50N(HN1)CO )-.5> > „ 4 

PH 1 NT "WANT THE HUMS 5 ? Cl MEANS YES. 0 NO) ' 

INPUT X 

IF X=0 THEN 200 
OOSUH 1000 

HEM *** GAME STARTS HE HP *** 

HEM B THE ONE WITH THE HUTTON 
B^INTCRNDCO)'?)*! 

PHI NT 
PR 1 NT 

HKM *** GUESSING STARTS HERE 

HEM n PLAYER'S GUESS 

PRINT "WHO DO YOU GUESS HAS IT*'; 

INPUT G 

IF G=0 THEN 9999 
IF G=H THEN 500 

IF G«FNM<B*I> OH G*FNNOJ-l> THEN 450 
IF G>0 AND G<B THEN 400 

PRINT "SILLY - THERE'S NO ONE HERE BY THAT NUMBER 
PRINT "TRY AGAIN ... " > 

REM°*** 0 pLAYEK * S GUESS HASN'T GOT IT NOR DOES H 1 5 NEIGHBOR *** 
PRINT GJ"! 'WHO. ME?'" 

PRINT 
PH 1 NT 

PRINT "WHOEVER HAS IT* KEEPS IT" 

REM°***°PLAYER , S GUESS DOESN'T HAVE IT* BUT HIS NEIGHBOR DOES *** 
PRINT G»" t 'MY NEIGHBOR HAS IT'" 

PRINT 

PRINT 

PRINT "... BUT WHOEVER HAS IT* PASSES IT" 

8=FNN<B> 

GOTO 300 

REM *»• A WINNER ! *** 

PRINT G I " t 'RIGHT YOU ARE - LUCKY 11!'" 

PRINT 

PRINT 

PRINT "DO YOU WANT TO PLAY AGAIN ? <1 MEANS YES* 0 NO) "* 

INPUT X 

IF X»l THEN 200 
STOP 

REM *** THE INTRO *•* 

PP 1 NT 
PRINT 

PRINT "BUTTON* BUTTON* WHO’S GOT THE BUTTON?" 

PRINT 


PRINT 
PRINT 
PR I NT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR 1 NT 


"SEVEN FRIENDS ARE SITTING IN A CIRCLE" 
"AND YOU'RE IN THE CENTER" 




PRINT "6 IT 3" 

PR l NT 

PRINT " 5 4" 

PRINT 
PP,1 NT 

PRINT "SOMEONE HAS THE HUTTON AND YOU HAVE TO GUESS WHO" 

PRINT 

PRINT "AFTER YOU C1IESS * HE CAN PASS THE HUTTON <IF HE WANTS TO)" 
PRINT "BT'T ONLY TO SOMEONE NEXT TU HIM IN THE CIRCLE" 

PRINT 

PRINT "IK YOU WANT TO STOP* TYPE O <Z.ERO>" 

PRINT 

PRINT "GOOD LUCK!!!" 

RETURN 

END 





- • v»» 




am 






letter 


Word Games 


100 
I 10 
120 
130 
| 40 
I 50 
160 
f-70 


200 

210 

220 

230 

2 40 

250 

260 

270 

200 

290 

300 

310 

320 

330 

3 40 
350 

3 60 
370 
380 
390 
400 
410 
420 
430 

440 

4 50 
460 
470 
400 
490 
500 
510 
520 
530 
540 
550 


REM • •• LETTER - a LETTER 

REM ... COPYRIGHT HEOPLE-3 COmm,^ G GA " K ••• 

ss s^iaj-isrs ssr 

PRINT "I WILL THINK OP ft let?™ 0 " 10 

TRr TO GUESS My LETTER .^ 0 " A ’» «•“ 

;tell rou if rou ^ssed Z T . er EnCM guess. i will- 
IS 7 00 HIGH OR loo i ciw _ ^ OR { |r yqiju ril .. yc 

■and the. muhm/S^-^h^lomh !“***• 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


TO *2 * ARRANGED in A F T 01 EM LE1,ERS FWOw *A ,m 

PRINT -BOTTOM AND * 2 ' ON luc ! M R ° LE *»lH • A ' ON lM F" 

PRINT -higher letter, try SL ?rAo ,P 1 TtLL *ou TO Iry ... 

PRINT -totem POLE. IF I t E m *3,°“* 10 1HE ™P OF THE" 

PRINT "ONE CLOSER TO THE BOlToS ft! ,Hy A L0WEH LETTER, «... 

let or ° T01EM P0LE - 

LET Li=A*IX,X3 
PRINT 

PRINT -OK, I HAVE A LETTr» 

REM ... ASK FOR A GUESS 1 * T 6 UESS * n G.- 

PKINT 

PRINT -WHAT IS YOUR GUESS-i 
INPUT G* d 1 


FOR Kz| TO EG" 5 ' “ N0T A LETT «' ™* AGftIN 
IF GS=ASCK.K) THEN 440 
NEXT K 

gSt2 T 34S EYU! ™ AT ’ S N0T a s,ngle letter, play FAI 

IF M G ;::s C ?HEN R 5,0 UESS W,TH C ° MPUTE *’ S LETTER 
IF G*>L5 THEN 4R0 

RR IJJ T * T °° L0W * TRY A m *GBER LETTER." 

GOTO 340 

PRINT "TOO HIGH. TRY A LOWER LETTER." 

GOTO 340 


REM^... HUMAN HAS GUESSED THE COMPUTER'S LETTER 

PRINT "YOU GOT IT!!! LET'S PLAY AGAIN." 

PRINT 
GOTO 290 
END 


p NOW!" 

ABAGEL 


100 

1 10 
200 
205 
210 
215 
220 
22 5 
230 
235 

2 40 
245 
2S0 
255 
260 
300 
302 
304 

306 

307 

308 

309 

310 


REM GUESS A THREE LETTER WORD 
DIM W*C 103, GSl 10) 

REM PRINT INSTRUCTIONS 

PRINT "ALL THE WORDS I KNOW HAVE THREE LETTERS JN THEM." 

PRINT "1 WILL THINK OF A WORD# AND YOU TRY TO GUESS IT 

PRINT "EACH TIME# JUST TYPE A THREE LETTER WORD (OF YOUR OWN)" 

PRINT "AND SEE WHAT I SAY." 

PRINT 

PRINT "'BAGELS’ MEANS NONE OF YOUR LETTERS ARE IN MY WORD." 
PRINT "BUT FOR EACH LETTER THAT IS IN MY WORD TOO# I WILL SAY#" 
PRINT "'FERMI* IF IT'S IN THE RIGHT POSITION. OR 'PICO'" 

FORINT "IF IT'S IN A DIFFERENT POSITION." 

PRINT 

PRINT "BUT I WON'T TELL YOU WHICH LETTERS I MEAN - YOU HAVE TO" 
PRINT "USE YOUR HEAD TO FIGURE THAT OUT !~ 

REM READ THE WORD TO BE GUESSED 

RESTORE 

READ N 

LET R= INTCN.RND<0) ) ♦! 

FOR K = ) TO R 
READ w$ 

NEXT K 
READ WS 


330 
3 40 

3 50 
360 
370 
380 
400 
410 
420 
430 

4 40 
450 
460 
470 
480 
49 0 
500 
510 
520 
600 
610 
620 
630 

6 40 
650 
660 
670 
680 
690 
700 
710 
720 
730 

7 40 
7 50 
755 
760 
770 
7*0 
790 
800 
810 
020 
830 
*40 
V00 
910 
920 
930 
9 40 
950 
960 
9 70 
999 


IF WSt I , ])=WSt2,2) THEN 302 
IF WSt | , 1 )=W»13.3) THEN 302 
IF Wf (2#23=WSt3#33 THEN 302 
PRINT 

PRINT "O.K. I HAVE A WORD." 

PRINT 

REM INPUT A GUESS 
PRINT 

PRINT "WHAT IS YOUR GUESS"! 

INPUT G* 

IF LEN ( G S > * 3 THEN 470 

PRINT "MY WORD HAS THREE LETTERS." 

GOTO 4|0 

IF GSM# I )>GS[2#2J THEN 510 
IF CSC I • I J = G! I 3# 3 ) THEN 510 
IF GSC2.2 3>GSC3.33 THEN 510 
GOTO 600 

PRINT "NO TWO LETTERS ARE THE SAME." 
GOTO 410 


REM COMPARE GUESS WITH COMPUTER'S WORD 

LET F-0 

LET P«0 

FOR J«1 TO 3 

FOR K. | TO 3 

IF GSC J# J 3 *» WSC K# K 3 THEN 720 

IF J*K THEN 700 

PRINT "PICO "I 

LET P«P*I 

GOTO 720 

PRINT "FERMI "| 

LET F-F.I 
NEXT K 
NEXT J 

IF F.P»0 THEN 770 

PRINT "BAGELS "I 

PRINT 

GOTO 400 

IF F«3 THEN 800 

PRINT 

GOTO 400 


PRINT ° 

PRINT "YOU GOT IT! MY WORD IS 
PRINT 
GOTO 300 

REM HERE ARE THE WORDS 
DATA 47 

DATA "POT", "APT 


DATA "POT" # " APT" # " w I N" »»»>..■■ 

DATA "PUN" ."CAT". "MAP" \ "LAP" * ** PE T " '"ART", 

DATA "AND", "BUT", " TUR ..,. .£*£»'•• " 001 " *R E"# 

K?2 


SON",” 


CUP" 

FOR" 

IRK" 

The** 

PEN- 

OPT" 



1 


HANGMAN 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

1 40 
150 
160 
170 
180 
190 
200 

2 10 
220 
230 
2 40 
2 50 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 

6 40 
650 
660 
670 
680 
690 
700 
710 
720 
730 

7 40 

7 50 
760 
770 
780 
790 
800 
810 
82 0 
830 

8 40 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
I 100 
1 110 
I 120 
1130 

1 1 40 


REM **HANGMN»* MULT I -LANGUAGE HANGMAN GAME 

REM AUTHOR: LOWELL VON EGGER 02/16/73 

PRINT "DO YOU WANT INSTRUCTIONS (YES OR NO>"l 
INPUT 81 

IF BS a "NO" THEN 220 
IF B f 4" YES" THEN 60 


'th.I’.s the came op hangman, too chos U he- 
■language that you want to’’1-AY , n, and letter" 

•OP A WOHO IN THAT LANGUAGE. YOU TRY TO Gut 

•by letter, what the word is. s h ^, nt a LINE OP" 

WHEN I THINK OF A W ?£ D ! !. NUM o E r OF LETTERS IN 

•DASHES WHICH CORRESPONDS TO THE NUMBE 

:™ E Wt T; 0 U GIVE UP. TYPE -GIVE- IP YO« T ° ° U ‘ T ' 

: S,MPL I pew^speci al* Instruct i on Si" an0 the .. 

•SPANISH - THE * IS COUNTED AS ONE LET Tt** 

• SPANI -CH- IS COUNTED AS TWO." 

•IN WHAT LANGUAGE WOULD YOU ™AN>" 

•(ENGLISH. PRENCH. SPANISH. OR GERMAN) 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
B $ = ** •" 

INPUT BS 

ASSIGN BSC 1 p 6 3 p I * A 
IF A* 3 THEN 300 
PRINT "THE "IBSC2U 
GOTO 230 

PRINT "HAVE FUN!!" 

READ 9 1 >MI 

Z=ZM 

IF Z^Ml THEN 1340 
W= I NT C M 1 *RND< 1 > *1 > 
FOR A= 1 TO Z-l 
IF WCA3=W THEN 340 
NEXT A 
WCZ3=W 
P = M=0 

READ 9 1 » 1 IM1 
FOR A= 1 TO W 
READ #1 IWS 
NEXT A 
PS=”" 

FOR A= I TO LEN<W$> 
P$CA» A3="-" 


I 

I 

I 

I 

I 

I 

I 


I 

0 

\ll!/ 

I 

\) 1/ 


Ilnminn 


LANGUAGE IS NO! AVAILABLE 



20 

30 

40 

50 


NEXT A 

PRINT "THE WORD IS "IPS 
bs-"abcdefghi jklmnopdrstuvwxyz 
US*"" 

PRINT "YOUR GUESS?** I 

ENTER 30p Ap G S 
PRINT 

IF GS="GIVE" THEN 1100 
IF GS="OUrT” THEN 1310 

GS-GSC I p I ) 

IF Af-256 THEN 610 
PRINT "HURRY UP!" 

GOTO 510 
FOR A= I TO 27 
IF GS = B S C A p A J THEN 660 

PRINT^'THAT IS NOT A VALID CHARACTER 
GOTO 510 
C = A 

FOR A=I TO LEN(US) 

IF GS=USCApAJ THEN 710 
NEXT A 

PRINT 7 "Y0U HAVE ALREADY USED THAT LETTER. GUESS AGAIN 

GOTO 510 

USt A, A3 = GS 

FOR A= 1 TO LENCWS) 

IF GS=WSIApA3 THEN 1120 
NEXT A 

IF R#0 THEN I 170 
PRINT "WRONG." 

M = M ♦ 1 

PRINT '* I I" 

PRINT "I 0" 

GOTO M OF |030p840»860p680p900 
GOTO 9 20 
PRINT "I 
GOTO 930 
PRINT "I 
GOTO 930 
PRINT "I 
GOTO 930 
PRINT "I 
GOTO 930 
PRINT "I 

! F M«7 THEN 1030 
PRINT "I l” 

GOTO M-6 OF 1030p960p980p I 000p 1020 
PRINT "I '** 

GOTO 1030 
PRINT "I S V 

GOTO 1030 

PRINT "I 
GOTO 1030 
PRINT "I 
FOR A 3 1 TO 
PRINT "I” 

NEXT A 

print minium — 

! f M#l AND M#6 AND M#7 THEN 1090 
P*PM 

IF M<ll THEN 1240 

PRINT "YOU HAVE JUST BEEN HUNG*" 

GOTO 1220 
IF R» I THEN 1 I 40 
PRINT "RIGHT!- 
PS t A p A J *G S 


1010 
1 100 
1110 
1 120 
1 130 
1 I 40 
1150 
f 1 60 
1170 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1300 
1310 
1320 
1330 
13 40 
9999 


HANGFL ... THIS PROGRAM SETS UP FILES FOR . HANGMN . 

i ::: KLsr, irs sitw-KS*- — ... 

5“ ::: Sang^'^pccJs^theSe f^esi englis.fremch. span. s. german 

dim ASC72]pFSC26J 

PR1INT "WHICH HANGMAN FILE "i 
INPUT FS 

ASSIGN FSC 1 , 6 Jp I » A 

PR I NT^Fl'l^DOESN ’ T EXIST, WHEN THE PROGRAM ENDS. TYPE" 

print , . 

OPEN-**lF$t Ip 63 1* p2 


PRINT 
STOP 
PRINT 

PRINT "HOW MANY WORDS "I 

INPUT W9 

PRINT # I p I I W9 

FOR W0=1 TO W9 

PRINT "WORD #"IW0, 

INPUT AS 
PRINT /MIAS 
NEXT W0 
PRINT 

PRINT "THAT’S IT FOR "1FS 
PRINT "ANOTHER HANGMAN FILE "I 
INPUT AS 

IF A$£IpI3s"Y" THEN 1100 
END 


I" 

/l" 


/IV 
\/I V 


\/l \/** 


\/ \** 


\/ \/" 
5-P 


1150 


R= | 

GOTO 760 

FOR A=» TO LENCPS) 

IF PSCApAJs"-" THEN 1240 
NEXT A 

PRINT "YOU GOT IT ! !" 

1210 D 3 DM 

PRINT "THE WORD WAS ")WS 
GOTO 1270 

PRINT "THE WORD IS "IPS 
PRINT "YOU HAVE USED "JUS 


I 160 
I 170 
I 160 
1 190 
1200 


1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 


1320 


1330 GOTO 
1340 


GOTO 510 

PRINT "WOULD YOU LIKE TO PLAY AGAIN (YES OR NO)"l 
INPUT BS 

IF R S = "YES" THEN 320 
IF BS*"NO" THFN 1270 
PRINT "YOU TOOK"jLEN(U$>J" GUESSES.** 

PRINT "YOU WERE H UNG" I Z- D I " T I ME ( S ) . " 

GOTO 1370 

" S0 * KY » BU1 * * m OUT OF WORDS. IF YOU WANT TO START" 
PRINT "OVER. RERUN THE PROGRAM. THE WORDS WILL BE THE SAME 
R NT "RUT THEY WILL BE IN A DIFFERENT ORDER." 

PRINT "rfiMr An a i . _ 


1350 
1360 

1370 PRINT "COME AGAIN SOON. 



MADLIB 


10 
80 
30 
40 
100 
no 
I 18 
180 
I 30 
1 40 
150 

ise 

154 
156 
158 
160 
168 
164 
166 
166 
170 
178 
174 
1 80 
190 
200 
2 10 
220 
230 
240 
2 50 
260 
270 
280 
290 
292 
294 
296 
300 
302 
304 
310 
320 
330 
340 
350 
400 
410 
412 
414 
416 

418 

419 

420 
422 
424 
426 
430 
440 

442 

444 

446 

450 

452 

454 

456 

460 

462 

464 

466 

468 

469 

470 
472 
480 
490 
492 
500 
510 
520 
530 
540 
542 
544 
S46 
548 
550 
552 
554 
556 
558 
560 
562 

564 
566 
568 
570 
600 
602 
610 
620 
622 
62 4 
626 
628 
630 
632 
6 40 
650 
660 
670 
680 
690 
700 


REM MADLIRS WRITTEN BY DAVE KAUFMAN • AUGUST M 

REM ♦♦♦ COPYRIGHT* PEOPLE'S COMPUTER CO. 

REM 1919 MENALTO AVE* MENLO PARK# CA. 94025 

REM 

REM • DECLARE STRING VAR I ABLKS 

REM ♦ A* TO 01 ARE USED HY THE STORIES P OR PLAYSR INIUT 

REM • XS AND Y l ARK USED BY THE MAIN PROGRAM • r II 101 

DIM A*(30],RiC30 3#C*t303.Dtt 30 J* tit 30)** 0*1 ' 

DIM JSC 30 3* Kit 30 J/LSC30 J *M K 30 J # NSC 30 J« 0*1 30 J 

DIM XSC 72 3* Yf t 78 3 _ olr lt „ n 

REM * 0 HOLDS A QUEUE OF STORIES. WAITINO TO BE USEI . 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


Q< I* I ) 
Q(2» I ) 
0(3* I ) 
0 ( 4 * | ) 


0(1.2) 
0 ( 2 * 2 ) 
0(03*2) 
0 ( 4 * 2 ) 


THE FIRST COLUMN HOLDS THF STORY * 3 I N THE , 

(THE NEXT RANDOM STORY GETS CHOSEN FROM THIS QUEUE) 

AND THE SECOND COLUMN HOLDS lHt * UE IT OETS 

(WHEN A STORY IS CHOSEN FROM HE ; uMN , THf 
PUT into THE 'WAIT* QUEUE NEXT* AND WAITS ITS TURN. mf 
•WAIT* QUEUE MOVES UP IN ORDER* THE TOP ONE GOING 
THE 'READY* QUEUE) 


A STORY 


0 TO GET A MENU) 


THEN 430 


DIM 0(4*23 

REM U - TALK TO PERSON AND FIND 0UT “”J S ISp! N J°.. USE 

PRINT “HELLO • THIS IS THE MADLIB PROGRAM TYPJNO. 

PrInJ "THERE ARE SEVERAL STORIES IN T "'* IS", 

PRINT “GET ONE PICKED AT RANDOM* OR CHOOSE ONE YOU L 

PRINT “WHICH DO YOU WANT - CHOOSE OR RANDOM *1 
INPUT X$ 

IF X$C I* I )*“C“ THEN 400 

IF X S ( I * 13 a”R“ THEN 300 , v «n pan ASK FOH A MENU)" 

PRINT *• 'CHOOSE' MEANS YOU PICK A S T0K Y u ^°Jf n ^R E GETTING" 

PRINT "'RANDOM' MEANS YOU WON'T KNOW WHAT YOU RE GETTING 

R°EH T V™,S SECTION PICKS A “I, ES 0 THE H -^T-°^ E r U£ 

REM . BEFORE RUNNING THE STORY. ' T “*?*7 ES S/t 

REM ♦ SO THIS STORY WON'T BE CHOSEN AGAIN FOR AWHILE 
Q0 = I NT ( 4*RND( 0 ) )♦! 

S = 0 C GO » I J 
GOSUB 800 
GOSUB 900 

REM°4 2 THIS SECTION ASKS THE PERSON TO CHOOSE 

PRINT "WHICH STORY NUMBER (TYPE A 
INPUT S 

IF S*0 THEN 420 
GOSUB 700 
GOTO 410 

IP S <= S9 AND S »" 1 AND INT(S)*S 

:;s; s.rv'v.s.’isr.r 

s«s a r.xzxzs-- :s:s* 

FOR 00=1 TO 4 
IF 0(00* I 3 =S THEN 470 

^^ T S?Srt N^BER ISN-T THERE. SO CHECK THE 'WAIT' OUEUE 

FOR 00=1 TO 4 
IF 0(QO*23=S THEN 460 
NEXT Q0 

FOR 01=00 TO 3 
01 0 I ,2 3 = 0C01 ♦ I *2 J 
IF 0(01*23=0 THEN 468 
NEXT Q I ^ 

R?H°FOUNO STORY # IN 'READY ' OUEUE. SO CALL THE REGULAR SUBROUTINE! 
REH U NoS”?HAT THE OUEUES HAVE BEEN UPDATED. RUN STORY. THEN LOOP BAG 
GOSUB 900 

i" TO rWS UB s2a U R T iunN| T R R ES T TORES E ‘^ OMA PO.NTER TO A PAR 1 1 CULAH STB 
q IS THE # OF THE STORY TO READ FROM 
60?0 S OF SAB, SAA, SAB. S52, SS6, S6B. S6A. S66 
RESTORE 1000 
return 

RESTORE 2000 
return 
RESTORE 3000 

RETURN 
RESTORE 4000 
return 

RESTORE 5000 
RETURN 

RESTORE 6000 
RETURN 

restore 7000 
RETURN 

RESTORE 8000 

rehTtHIS SUBROUTINE READS THE STORY NUMBERS INTO NAT 0 
=EH l AND FINDS THE TOTAL . OF STORIES 
REM S9 IS THE TOTAL f OF STORIES 

mat q=zer 
for S= 1 TO 0 

GOSUB 500 
READ YS 

,p Y$=" *" THEN 640 
B ( S- 4* I NT( 5/5) * 1 ♦ I NT( S/S> J *S 
MEXT S 
59*5- I 

IF S9<5 THEN 670 

»» in T^“ THERE MUST BE AT LEAST 5 STORIES IN THIS PROGRAM.' 1 
,RINT "ALL THERE ARE I S" I S9 1 "S TORI ES . BYE I” 

?EM P # THIS SUBROUTINE PRINTS ALL STORY TITLES 


123 


ccptipued 


rpadlib 


710 

712 

7 1 4 
720 
722 
72 4 
726 
728 
730 
800 
802 
80 4 
810 
812 
820 
830 
832 
834 
836 

8 40 
850 
900 
910 

91 1 
912 
914 
920 
922 

92 4 
926 
928 
930 
932 
934 
936 
938 

9 40 
9 42 

944 
946 
9 48 
950 
9 52 
954 
956 
9 58 
960 
962 
964 
966 
968 
970 
972 
974 
976 
978 
980 
982 
984 
986 
988 
990 
99 1 

992 

993 

994 

995 

996 

999 

1000 
1002 
1010 
1020 
1030 
1040 
1050 
1060 
1499 

1 500 
1502 
1510 
1512 
1520 
1530 
1540 
1550 
1560 

1999 

2000 
2002 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 

2499 

2500 
2502 
2510 

2 520 
2530 
2540 
2542 
2S50 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2 


••HERE’S THE MENU 


PRINT 
PRINT 
PRINT 
FOR S = I TO S9 
GOSUB 500 
READ Y $ 

PRINT SlYS 
NEXT S 
RET UR N 

REM • THIS SUBROUTINE PUTS THE NUMBER OF THE CURRENT STORY ON THE 

REM * BOTTOM OF THE •WAIT’ QUEUE. IT THEN MOVES THE STORY ON 

REM * OF THE ‘WAIT* QUEUE INTO THE ’READY* QUEUE- 

REM S IS THE NUMBER OF THE CURRENT STORY 

REM Q0 IS ITS POSITION IN THE ’READY* QUEUE 

QCO0, 1 3 = Q [ 1,23 

FOR Q 1 = 1 TO 3 

QCQl,23=QtQt*!,23 

IF Q[Ql,2)=0 THEN 840 

NEXT Q! 

Q C Q I ,2 3 =S 
RETURN 

REM • THIS SUBROUTINE RUNS THE SELECTED STORY 
GOSUB 500 
1=0 

REM SKIP TO QUERIES BY READING TITLE 
READ YS 

REM FIRST, GET ALL QUERIES FOR INPUT 
READ YS 

IF Y $=** *" THEN 991 
PRINT YS? 

GOTO I OF 932* 936, 9 40, 94 4, 9 48 ,9 52, 956, 960, 964, 968, 972, 976*980, 9 8 4, 8 

INPUT AS 
GOTO 990 
INPUT BS 
GOTO 990 
INPUT CS 
GOTO 990 
INPUT DS 
GOTO 990 
INPUT ES 
GOTO 990 
INPUT F $ 

GOTO 990 
INPUT GS 
GOTO 990 
INPUT HS 
GOTO 990 
INPUT IS 
GOTO 990 
INPUT JS 
GOTO 990 
INPUT K $ 

GOTO 990 
INPUT LS 
GOTO 990 
INPUT MS 
GOTO 990 
INPUT NS 
GOTO 990 
INPUT 0$ 

GOTO -920 

REM NOW, PRINT TITLE 
GOSUB S00 
READ YS 

PRINT LINC -5) 3 TA8< I 4S-LEN( Y S) ) /2 3 I Y $ 

PRINT HNC-3) „ 

gOSUB S OF I 000,2000, 3000, 4000, 5000, 6000, 7000, 8000 
RETURN 

REM *** WEATHER 
REM * FIRST, THE TITLE 
DATA *' WEATHER REPORT- 

SECOND, THE QUERIES FOR INPUT 
GIVE ME A PLACE- 
GIVE ME A TEMPERATURE" 

NOW I NEED A VERB" 

WHAT IS YOUR NAME" 


GOSUB THE STORY - LET IT RUN ITSELF 


REM • 

DATA ' 

DATA ' 

DATA ' 

DATA 1 
DATA ' 

REM ♦ 

PRINT 1 
PRINT ' 

PRINT 
PRINT 
PRINT 
PRINT ’ 

PRINT 
PRINT 1 
RETURN 

REM *** STAR TREK »«» 

R E M * FIRST, THE TITLE 

-STAR TREK INTRODUCTION- 
SECOND, THE QUERIES FOR INPUT 
-I NEED A FAMOUS NAME" 

-WHAT WOULD YOU LIKE TO DO MOST OF ALL 
-LEAST OF ALL " 

-GIVE ME A NAME ” 

-AND A DATE" 

-A NAME OF A DISTANT PLACE" 

-THE NAME OF YOUR BEST FRIEND" 


AND THIRD, THE STORY GETS PRINTED OUT 
" GOOD EVENING, TV VIEWERS. THIS IS THE EVENING" 
••WEATHER REPORT FOR "?At3" AND VICINITY.," 

"THE " 3 B S ? " WILL BE WARM, AND THE HUMIDITY IN THE LOW" 
-30'S. THERE WILL BE A SLIGHT RAIN THAT WILL " 3 C $ 
"AND THAT IS ALL." 

« SIGNING OFF FOR KLMN TV, THIS IS ’’ J D$ 


•IAS 


m 


DATA 
REM * 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM * 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT TAB f 1 5) 3 "S T A 
PRINT 

PRINT "CAPTAIN " 3 DS 3 " 

PRINT 

PRINT »’ WE ARE RESPONDING TO A 
PRINT "SCIENTIFIC EXPEDITION TO 
PRINT 

NT "CAPTAIN " 3 DSl " I Li EUTENANTj’MlSI", PLEASE TAKE OVER" 


AND THIRD, THE STORY GETS PRINTED OUT 
"SPACE, THE FINAL FRONTIER" 

-THESE ARE THE VOYAGES OF THE STARSHIP 
"ITS FIVE-YEAR MISSION : "IBS 
-TO SEEK OUT NEW LIFE AND NEW CIVILIZATIONS, 
••TO " J C $1 " • • 

-TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE . 

TREK " 


CAPTAIN’S LOG, STARDATE -?E£ 


DISTRESS CALL FROM THE" 

"IFS 


coptipued 


ttjadlib 


z" 


WMC 


>* N f 

*•? 

>*►* 

>e*+ 

*\** 

*n» 

$i>* 

*SA# 

jsw 

5N,n# 

»** 

*>** 

>>** 

«»»A* 

3>** 

»*♦ 

>**« 


4*1# 

«■*># 

404* 

4#S0 

40>0 

*A?0 

**** 

**** 

4SM 

^J# 

<N'f 

«SM 

4j.y 

a3c* 

4SJf 

4*9* 

WM 

$*#e 

5*!0 

5*?0 

s©*? 

$?>{• 

$*?« 

5*7? 

$A«0 

5**? 

$100 

sn0 

$120 

5l3fi 

$ 14 * 

SIS © 

$160 

5 l ?0 

$<99 

$SAP 

5 S 10 

$$?0 

553? 

$$40 

$$$0 

$$60 

$570 

$$$0 

5590 

$€•0# 

$610 

$6C0 

$999 

6000 

6002 

6010 

6*?0 

6499 

6 $ 0 * 

4999 

7080 

7999 

8000 
8999 
9999 


*** HU N Mitt t mm w. . 

VO INV*M r 0t K * N,) I HMH DOWN" 


» » n a k 


» N l A h 


^OVI " 

*v'l*il 

K)Kt \Wv^^f 0 N 
si 

VJ ., %%♦ , iV*r»iU< \M w 6«» 

V J>* % • t«iN\ V T*k VI \\ I. 

'V,WV»H* TAi W" 

Si* » M.’OHO* VMI SM'>KU> M)R lN^^n 

MH ’NOW A VOso >os Alin,, 0K)> " 

O^* ' v'lU *> A M,OKV. MV ki \ MI.ViAru 
4 SA'.4 ' WHM V«v AN0|N»s WORD ► OR ^kiimmi » •* 

; s* ' 'UNO WOiS 0 »'Rir'ARi | | '* 

|S*T* "AW SV W'OSD *0R KjNNAta ” 

M \4 4 '^NO\ in On Am* 6 I h rAUAO a . . 

0*T* w <>IVi M* A NiNrUR " * 

^4^4 "4V0\rO$ XUM1UK " 

fsA\ A 'MVnnONi. VI *7 IMPORTANT « 

OA'. 4 "I M*l> AN As' t ION WON l! ” 

DATA y '* v> 

<:* • 4*0 1MIM'» Ihl MORN isMN PR I N H U mil 

'iv- ", ::'^ NM ' - "«• '•"*"««• •■■*«.»* 

•V N. < *1 mil ON A Oh Ol'lNii IH 1 (U , 'Mll ,, . M 

T ' v 1 v V ‘ " J ' ^ l 0*\0» D AND ’MOM" 11 V A “ I M l ” ANI» VHMIMONI" 

^INl -V*i VUMNs. Ol 1 0 * |M| « , N UNttii 

• 1J1N7 

a>;sv‘ « VN»^t 4N », M 9. 1 *' OllVAOl Mv>0> S ANl> “||»I M INfUJI MOUM." 

"^i nW.m OSPis "1 Vi" Of ltik NlulMlN IS 1M l |NVU1 M AO.*' 
^ IN'J THIS " 1 . 171 " I N A Mill , ini " i . ii ,** ( if . 

.<:\' unmo kon i >i t "»f\7i M , thus mnovidinq a kqunch" 

•S)V. "O' OA 1 A WHVN "1KVI" ANO M H.HNAI | /O "ifti",' 1 

*nu*9 

< t v .*• s.'K VO * Al.ANw » vot^ riHSl ’•Hi. ANK * PHOOHAH ♦♦♦ 

* nssi, nu mii 

^A , :A "WO* UN ^AlANh' VOUK IIK'HT «H| ANh * PROGRAM” 

•;‘V • 5CC0Nr« nil ttllCftlKS ion INPUI 
fVAVA ^ciJVl 1*1 A VI Nil R l i AllO U> NO 1 | ON ” 

JSATA "SlV> Nl A WORD WHICH Ml ANN APPROVAt M 
OA V A "MOW a WORD f OK A Hfc'AVY MACHl^1^ ” 

DA * A "nO» 4 ASOOl N ON 1 1 H | N i . 1 | vOl! ” 

OATA "NOW A Ws'RO FOR MKCHANl C Al CONNFCTVONS ON rORCI S ” 

DATA "SOMETHING YOU l|M A1.0T ” 

r.*i:A "ANO isONfciNiNsi tou hau *• 

SX^TA "•" 

<;.'v «. and THIRD. THt NVONY f.KIS PN'INIM) OUT 

PKINT " F I R$ T* YOU HAVC 10 LOGON 1»U ONO YOU” 

PRINT "HAVE "IK*»” THE "Kill" WONO. THIN • , A*I M IMF” 

PRINT "NOUN." 

PRINT " NEXT. SCRATCH THE ”lC*l" AND ENlMi Y 0 UN 
PRINT "ONOl k-NOuen ”IDS»”S AMI INUHMV. M*S 1IMK 10” 

.^JNT A $ i '* YOUR "1C1T UNTIL YOU 1.001* 1MK "IFH” OR" 

PRINT E$1"ED YOUR ”I8S»" PK06RAM.” 

HOW TO WIN FRIENDS AND INFLUENCE Pl.OPl.1 **♦ 

SEH • FIRST. THE TITLE 

EvalA "HOW TO WIN FRIENDS AND INFLUENCE PEOPLE” 

RET* • SECOND. THE Ol'k'RI SS FOR INPUT 

fVAlA "NAM t SOMETHING YOU * VI ALWAYS WANTED 10 DO 

DAT £ "NOW A PART OF A PERSON " 

DATA "ANOTHER PART OF A PERSON 
DATA "GIVE ME A l-W’ORD EXCLAMAllON M 
£VkT A "WHAT'S THk DFS1 WORD FOR A BAD DAY 
DATA "A TYPE OF PERSON ” 

DATA "|* N \'E eleven ANOTHER PART OF A PERSON 
DATA "A DESCRIPTIVE WORD ” 

DATA "NAME SOMETHING ” 

S?S rro'puK Nonci •• 

DATA 
REM 
PRINT 

"THERE ARE A Nunnrc* wy v ™ ' 7.* rutM ON THE ST 

•Ilf’# YOU” 

PRINT "GRAB THEM ® Y JAZZ'S ’ J MEHTAS L» V.P ANO WHISPER.” 

PR, NT EE.” r ?^ LA .^7 ”* IN THEIR ”*»<» 

PRINT rt,M f6Jl". "IGF* • *UJ „ ...JJ,|" AND” 

SIS? ** pretty ^c?T?5J uS. «UH»T «TH®- 

PKINT --P0 a “<***'" “ J.riv* ••».»»”••• 

PRIN1 "MIS1AKEN FOK A >E 

K™:. ATOP THE HARSOIM ••* 

REM • FIRST. THE T I VL t 
data “ATOP THE NM6010* puT 

«»«“.. - crmnn. THE OUkRlw 3 


ANOTHER THING 

. AND THIRD. THT STOKY vo1 S MUS1 N,1, »A$I” 1 WI1H THEM. 

PRINT ” TO CHANGE PEOPLE Y U ^ h J Q 0Q ah 0 U1 C”“—“ 
PRINT "THERE ARE A NWBER JJ\ jp T0 1(UM ON I 

S!2I = A *THE :.C^D yell Z o 1;; 


REH • SECOND. THE OUER, 

i$r;Zm third, the story gets printed out 

REM^ 1 ** • EMPTY STORY 

EMPTY STORY ♦♦* 

DATA "V* 

END 



END 


"Nim- Like "Games 


BATNUM 


10 REM *** BATNUM 

12 REM ♦** FIRST VERSION BY JOHN KEMENY, DARTMOUTH COLLEGE 

\A REM m * MOOIFIED BY PEOPLE’S COMPUTER COMPANY, MENLO PARK, CA 

90 DIM A$C 72 3 

100 REM «** INSTRUCTIONS? 

110 PRINT "DO YOU NEED INSTRUCTIONS (YES OR NO)"# 

120 INPUT AS 

130 IF A$C!»n»"Y" THEN 1000 

200 REM SET UP PILE, MIN t MAX, WIN OR LOSE TAKING LAST 

210 PRINT 

220 PRINT "HOW MANY OBJECTS IN THE PILE"I 
230 INPUT P 
240 P= I NT( P) 

2S0 IF P <« 0 THEN 1999 

260 PRINT "WHAT IS THE MINIMUM YOU CAN TAKE"# 

270 INPUT A 
280 A=INT(A> 

290 IF A>0 THEN 320 

300 PRINT "YOU HAVE TO TAKE AT LEAST 1 EACH TIME" 

310 GOTO 260 

320 PRINT "WHAT IS THE MAXIMUM YOU CAN TAKE"# 

330 INPUT B 
340 B=INT<B> 

350 IF R >t A THEN 380 

360 PRINT "THE MINIMUM CAN’T BE LARGER THAN THE MAXIMA" 

370 GOTO 260 
380 PRINT 

390 PRINT "DO YOU WIN OR LOSE BY TAKING THE LAST OBJECT (WIN OR LOSE)" 
400 INPUT AS 

410 REM TAKING-THE-LAST-OBJECT OPTION 

420 REM WIN: L=0 LOSE# L«A 

430 L=0 

440 IF ASt 1 , I 3s"W" THEN 500 
450 L= A 

460 IF ASt | , | 3*"L" THEN 500 
470 GOTO 390 

500 REM ••• SET UP STRATEGY 

510 REM **• A IS THE MINIMUM, B IS THE MAXIMUM, L IS THE 'LAST * OPTION 
520 REM *** COMPUTER TRIES TO LEAVE CA*B)K L AFTER MOVING 
530 T=A+B 

550 REM **• WHO GOES FIRST? 

560 PRINT "DO YOU WANT TO GO FIRST (YES OR NO)"l 
570 INPUT AS 

580 IF AS C 1 , I 3 *"Y" THEN 800 

600 REM *** THE COMPUTER MOVES 

602 REM **• CHECK IF END OF GAME 

604 IF P>B THEN 610 

606 IF (P <= A) OR (L=0) THEN 720 

610 R=P-T*!NT(P/T) 

615 REM TAKE CARE OF THE CASE 0 < R < A 

620 IF (R >= A) OR CR=0> THEN 630 
625 R=A 

630 REM IF R=L THEN THERE IS NO ‘GOOD* MOVE 

635 IF R=L THEN 680 
640 C*R-L 
650 IF C>0 THEN 700 
660 C=C*B 
670 GOTO 700 

680 REM MAKE A RANDOM MOVE 

690 C=INT( (B-A+l )*RND(0> >*A 
700 PRINT "I TAKE" JC 
705 P=P-C 
710 GOTO 800 

720 REM THE GAME IS OVER 

730 IF L=0 THEN 760 

740 PRINT "I TAKE"#P#"AND LOSE (LUCKY)" 

750 GOTO 1900 

760 PRINT "I TAKE" #P# "AND WIN!" 

770 GOTO 1900 

800 REM ••• THE HUMAN MOVES 
810 PRINT 

820 PRINT "THERE ARE" I P l"08 JECTS IN THE PILE.” 

830 PRINT "HOW MANY DO YOU TAKE"! 

840 INPUT H 
850 H* I NT (H) 

860 IF CH >* A) AND (H <» B) THEN 910 

870 REM ••• CHECK IF END OF GAME 

880 IF CH=P) AND (P<A> THEN 930 

890 PRINT "YOU MAY TAKE FROM" I A# "TO" #8 

900 GOTO 830 

910 P*P-H 

920 IF P>0 THEN 600 

930 REM THE GAME IS OVER 

940 IF L c 0 THEN 970 

950 PRINT "OH WELL, YOU LOSE" 

960 GOTO 1900 

970 PRINT "CONGRATULATIONS, YOU WIN!" 

980 GOTO 1900 

1000 PRINT 

1010 PRINT "WE BEGIN WITH A PILE OF OBJECTS (YOU DECIDE HOW MANY)." 

1020 PRINT 

1030 PRINT "WE TAKE TURNS REMOVING OBJECTS FROM THE PILF.” 

1040 PRINT "YOU DECIDE WHAT THE MINIMUM (LEAST) AND THE MAXIMUM (MOST)" 

1050 PRINT "ARE THAT WE CAN TAKE ON EACH TURN. FOR EXAMPLE, IF 2 IS" 

1060 PRINT "THE MINIMUM ANO 5 IS THE MAXIMUM, THEN ON EACH TURN" 

1070 PRINT "WE MUST TAKE 2 . 3 , 4 . OR 5 OBJECTS." 

IM80 PRINT 

1090 PRINT "TWO MORE THINGS TO DECIDE- IS TAKING THE LAST OBJECT" 

1100 PRINT "WINNING OR LOSING? AND, DO YOU WANT TO GO FIRST?" 

1110 PRINT 

I 120 GOTO 200 

1900 REM ••• PLAY AGAIN? 

1910 PRINT 

1920 PRINT "DO YOU WANT TO PLAY AGAIN (YES OR NO) "I 
1930 INPUT AS 

1940 IF ASt I , I 3*"Y" THEN 200 
1999 END 


23 MATCHES 


10 RFM 23 MATCHES 

12 REM PEOPLE ' 4 COMPUTER COMPANY, MENLO PARK, CA 

90 DIM ASI72J 

100 REM PRINT THE INSTRUCTIONS 

110 PRINT 

120 PRINT "WE START WITH A PILE OF 23 MAICMCS." 

130 PRINT 

|40 PRINT "WE TAKE TURNS • ON EACH TIPN Wf CAN RF.MOVI" 

150 PRINT "I, 2, OR 3 MATCHES f ROM ThC PILE." 

160 PRINT "THE ONE WHO HAS TO TAKE THE LAST MATCH LOiES." 

170 PRINT 

|R0 PRINT "YOU GO FIRST. "» 

190 PRINT "MAY THE BEST COMPUTER (HA HA) wlN." 

200 REM INITIALIZE THE NUMBER OF MATCHES 

210 M«23 

220 PRINT 

230 PRINT "THERE ARE NOW 23 MATCHES." 

300 REM ••• THE HUMAN MOVES 
310 PRINT "HOW MANY DO YOU TAKE"# 

320 INPUT H 

330 REM ••• CHECK IF H • I, 2, OR 3 
340 H* INT ( H ) 

350 IF ( H < 1 > OR <H>3) THEN 800 
360 REM ADJUST • MATCHES LEFT 

370 M«M-H 

380 REM CHECK IF THE HUMAN LOST 

390 IF M «» 0 THEN 850 
500 REM THE COMPUTER MOVES 

510 IF M* I THEN RB0 

520 REM TRY TO LEAVE 4K ♦ 1 MATCHES 

530 R«M-4*lNT(M/4) 

540 REM ••• IF R ■ | THEN THERE IS NO ‘GOOD* MOVE 
550 IF R»l THEN 590 

560 REM THE WINNING MOVE IS (RO) MOD 4 

570 C«(KO>-4*INT((RO)/4> 

580 GOTO 610 

590 REM MAKE A RANDOM MOVE 

600 C* INT(3*RNO(0) > ♦ l 
610 REM ••• THE COMPUTER MOVES 
620 PRINT "I TOOK"# C# 

630 REM ••• ADJUST • MATCHES LEFT ANO PRINT IT 
640 M»M-C 

650 PRINT ". . . THERE ARE NOW" IM l"MATCHES ." 

660 PRINT 
670 GOTO 300 

800 REM THE HUMAN CHEATED 

810 PRINT "YOU CHEATED, BUI I’LL GIVE YOU ANOTHER CHANCE." 
820 GOTO 300 

850 REM THE COMPUTER WON 

860 PRINT "I WON 1 BETTER LUCK NEXT TIME." 

870 GOTO 900 

880 REM • •• THE HUMAN WON 

890 PRINT "0 • K . SO YOU WON (LUCKY) . , 

900 REM ••• PLAY AGAIN? 

910 PRINT "DO YOU WANT TO PLAY AGAIN (YES OR NO)"l 
920 INPUT AJ 

930 IF A $ [ | , | ] • ,, Y" THEN 200 
999 END 



NIM 


|0 

12 

I* 

50 

*0 

56 

58 

L* 

62 

79 

72 

7* 

199 

192 

19* 



'* C0Mp UTER COMPanv 

ANr ' "*"LO park, 

WUHHtR OF P, C£S 
NU*1HLR OF OB jf rt« 
p ‘'> 1" SA5E 2 ,N PfLE 1 
b« i • j) ♦ ; 

maximum num«c w IN base 2 

The MAXIMUM P| Ll r SIZE ,5 ° F !L£S 


M 

P< I ) 

B< I , J) 
07 J) 


1 1 9 
112 
M3 
IM 
116 
1 10 

120 
122 
124 
126 
120 
130 
132 
134 
136 
130 
I 40 
142 

144 
| 4* 
|A0 
IW 
142 
144 
146 
140 
160 
162 
164 
166 
140 
100 
102 
104 
106 
100 
190 
192 
194 
196 
190 
200 
202 
204 
204 
200 
210 
212 
21* 
216 
210 
220 
222 
tZA 
W 
49* 
496 
V V | 
'.«* 
602 
604 
612 
614 
616 
610 
620 
622 
62 4 
626 
620 
430 
432 
634 


It EM 
RFH 

£!" N .. ... " C* 

N»M 
REM 
REM 

ftpf 
REM 
HEM 

LEI M-10 

DIM PC 10), HC I0,4J,OCSJ 
DIM A 1C 72 J 

PRINT "DO YOU NEED iNSTk.^*. 

INPUT A 1 3t KUCTions < y 

PRINT 

|06 IF THEN 0R<? 

100 PRINT "NIM IS PLAYED WJ T u Plllrc „ 

ZZ " H0 “ MANr P,L£S ha£ ksj _ 

-vHin n is Y0UR T LE> * 

PXIMI "/>S rou LIKE, BUI fROM J2e Jm,'*"' * s ««*» . s 
PRINT "THE PLAYER WHO T*nr. ,?? C . P|L8 ONLY." 


<*ES OH NO)" 


PRINT "THE PLAYER WHO TAKES THE LAST*.™ 

PRINT L AST ••• WINS." 

PRINT "FOR EXAMPLE, SUPPOSE THE P.,r* AO 
PRINT C ,ME p, LES AREi" 

PRINT TABC 4) | "P| L£ ,, # 

PRINT TAWC4)I"PILE 2 1 . • 

PRINT TA8Y 4) i"P | L£ 3, * 

PRINT 

PRINT "TO TAKE THREE **S from pi, r „ 

PRINT 3 FR0M P, LE 2# YOU MOVE 3, 

PRINT TAH<4> J"P!LE | , . 

PRINT TAR (4) | "PILE 2 I" 

PRINT TAB<3)I"PILE 3* • 

PRINT 

NOW IF I MOVE 2,3 


2- THAT LEAVES" 


vou *,* er a:r j ,2 G .%*; R s o pR “r^,r 


A NEW PLAYER SET N-3 AMO P( J ) *3, P<2> * S, P 


PRINT 
PRINT 
PRINT 

PRINT "HERE WE GO 
PRINT 
PRINT 
REM 

RLM FOR 
REM 

LET N«3 
LET PC I JO 
LET PC2J-4 
LET PC3J-7 

REM WHO MOVES FIRST? 

PRINT "DO YOU WANT TO GO FIRST <YES OR NO>"» 
INPUT A» 

IF ASC I , I J*"Y" THEN 202 
REM PRINT THE PILES 
GGSU8 960 
GOTO 214 
REM 

REM MAIN BODY 
REM 

REM PRINT THE PILES 
GO SUB 96B 

REM THE HUMAN MOVES 
G03U8 800 

REM CHECK WHETHER THE HUMAN WON 

GO SUB ?30 

IF T«0 THEN 840 

REM THE COMPUTER MOVES 

GOSUB 600 

REK CHECK WHETHER THE COMPUTER WON 

GOSUB 830 

IF T *0 THEN 860 

GOTO 202 

RtM 

REM THE COMPUTER MOVES 
HIM 

REM INITIALIZE 
FOR JO TO 5 
LET D£JJ*0 

REM ADO P<!> ♦ 4 P (N > 1* BASE 2 

FOR 1*1 TO N 
LET T*PC 1 3 

FOR J*4 TO 1 STEP - I 
LET 8 C I , J) * I NT < 7 / 2 » < J- 1 1 1 
LET 01 JJcABSfDC JJ-BCI, JJ) 

LET T*7-8C1, J3*2*< J-I) 

NEXT J 

Sm T h*o THE largest i such that ou».i 


LET T»0 

FOR 1*4 TO I STEP 'I 
Hi LET^T*T* I • D C I J*6 I "SGM< T) ? 


640 

642 

643 

644 
646 
640 

640 

642 

644 

444 

440 

642 

664 

644 

468 

470 

472 

474 

474 

«7« 

680 


BO, ir T »B THEN 

REM 0<T)*2*cT-l> 4 D<T-I) 2 


S, T* I > * • 


REM 

REM 

REM 


FHOH B«r BILE ; SUCH JHBT PIL£ 


|F T.„ THEN REHOVE . WO" W -OH 

IF T>0 7HEN 662 
LET 5*INTf N*RNOC0> 9 * 1 
IF PC5J-0 THEN 6S0 
LET 7*1 

GOTO 684 . 

REM FIND I SO THAT 
LET 3*0 

FOR I • I TO N . rJifS)) 

LET S*S*fBlI,TJ*<t-SGH<S 

NEXT I 

IF T* I THEN 684 
LET w * 0 

FOR J*T- 1 TO I STEP '' b[S ,j)-.5> 

NEXT J 

LET T*2*fT-l>*H 


682 

REM THE COMPUTER MOVES 


68 4 

PRINT "I MOVE" 1 T )",")S 


686 

PRINT 


688 

LET PCS J*PCS J-T 


690 

RETURN 


794 

REH 


796 

REM THE HUMAN MOVES 


798 

REM 


800 

PRINT "YOUR MOVE") 


802 

INPUT T,S 


804 

IF SsSGNCN*1-S>*SGN<S>MNTCS-1> THEN 810 


806 

PRINT "WHICH PILE DO YOU WANT") 


807 

INPUT S 


808 

GOTO 804 


810 

IF I NT < T> ‘PCS )>0 THEN 816 


812 

PRINT "SORRY, BUT YOU CAN * T TAKE ")T)~**’S 

FROM PI LI 

814 

GOTO 800 


816 

REM VALID INPUT 


818 

LET PCS 3*<PCSJ-INTf T) >»SGNC I ♦SGNCPCS J- INK T) > ) 

820 

RETURN 


82 4 

REM 


826 

REM CHECK FOR A WINNER 


828 

REM 


830 

LET T = 0 


832 

FOR 1*1 TO N 


834 

LET T=T*PCI3 


836 

NEXT I 


838 

RETURN 


848 

REM THE HUMAN WON 


8S0 

PRINT 


852 

PRINT "CONGRATULATIONS! ! YOU *)N - • • " 


8S4 

GOTO 868 


8S8 

REM THE COMPUTER WON 


860 

PRINT 


862 

PRINT ~I WON. BETTER LUCK NEXT TIME-" 


866 

REM ANOTHER GAME? 


868 

PRINT "DO YOU WANT TO PLAY AGAIN CYES OR NO)") 

870 

INPUT AS 


872 

IF ASC I , 1 )*~N*' THEN 999 


874 

PRINT 


876 

REM SET UP THE PILES 


878 

REM 


880 

G0SU3 900 


882 

GOTO 182 


894 

REM 


896 

REM INPUT THE NUMBER OF PILES AND THE SIZE 

or EACH 

898 

REM 


900 

PRINT "HOW MANY PILES DO YOU WANT* ) 


902 

INPUT n 


904 

PRINT 


906 

LET N*INTCN) 


908 

IF N <* 0 THEN 999 


910 

IP N ** M THEN 918 


912 

PRINT "I CAN PLAY WITH AT MOST " !« ) "PI LES 


914 

PRINT 


916 

GOTO 900 


918 

FOR 1*1 TO N 


920 

PRINT "HOW MANY ’•'S IN PILE "#U 


922 

INPUT PC IT 


924 

LET PCI )= I NT ( PC l 3 ) *S6Nt I»INT<PCI )>) 


926 

IF PCI 3 «= 31 THEN 932 


928 

PRINT "I CAN PLAY WITH AT MOST 31 ’^'S IN EACH PILE* 

930 

60T0 928 


932 

NEXT I 


934 

REM CHECK THAT NOT ALL THE PILES ARE EMPTY 


936 

GOSUB 638 


938 

IF T»0 THEN 946 


9 40 

PRINT "HOW CAN WE PLAY IF ALL THE PILES ARE 

EMPTY?" 

942 

PRINT 


944 

GOTO 900 


9 46 

PRINT 


94g 

PRINT 


9 50 

return 


956 

REM 


9 58 

REM PRINT THE PILES 


959 

REM 


960 

FOR !*I TO N 


962 

PR/N7 TABC 5> i"PILE "II)": -j 


964 

IF PCI 3=0 THEN 972 


966 

FOR J*I TO PC 13 


968 

PRINT "• "1 


970 

NEXT J 


972 

PRINT 


974 

NEXT f 


976 

PRINT 


978 

RETURN 


999 

END 



127 


CHOMP 


100 
V 10 
120 
130 


REM *** THE GAME OF CHOMP ♦** COPYRIGHT PCC 1973 ♦♦♦ 

PRINT "THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN# 
PRINT "WANT THE RULES <1=YE5, 0*NOn"» 


CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY). 
HERE’S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7) t 


JAN 1973)” 


1 40 

INPUT R 

150 

IF R =0 ' 

1 60 

F= 1 

170 

R = 5 

160 

C = 7 

190 

PRINT "1 

200 

PRINT 

210 

PRINT " 

220 

GOSUB 5 

230 

PRINT 

2 40 

PRINT " 

2 50 

PRINT " 

260 

PRINT " 

270 

PRINT ’’ 

280 

PRINT " 

290 

PRINT ” 

300 

PRINT •' 

310 

PRINT * 

320 

PRINT ’ 

330 

PRINT 

3 40 

PRINT * 

350 

DIM At 

360 

F = 0 

370 

FOR 1 = 

372 

FOR J= 

375 

LET At 

377 

NEXT J 

379 

NEXT I 

380 

PRINT 

390 

PRINT 

400 

INPUT 

410 

11=0 

420 

PRINT 

430 

INPUT 

440 

IF R < 

450 

PRINT 


540 


IGH AND C COLUMNS” 


^ OF THE COOKIE I S *«««"«£« 


CHOMP! 1 


NOW, 


460 

470 

480 

490 

500 

510 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

6 40 
650 
660 
670 
680 
690 
700 

7 10 
720 
730 

7 40 
750 
760 
770 
780 
790 
800 
810 
82 0 
830 

8 40 
850 
660 
870 
880 
890 
900 
910 
92P 
930 

9 40 
950 
960 


-OR THAT ARE OUTSIDE 

‘HERE WE GO. . •" 

10 , 10 ) 

I TO 10 
1 TO 10 
I , J)=0 


•HOW MANY PLAYERS” J 


•HOW MANY ROWS"! 

* 

= 9 THEN 470 

•TOO MANY ROWS (9 IS MAXIMUM). 

GOTO 420 

PRINT "HOW MANY COLUMNS"! 

INPUT C 

print "too T many Columns (9 is maximum), now 

GOTO 470 

PRINT 

FOR 1=1 TO R 
FOR J*l TO C 
A 1 1 * Jl* l 
NEXT J 
NEXT 1 
A t 1 , 1 ) *- 1 

REM PRINT THE BOARD 
PRINT 

PRINT TAB ( 7 > I" 1 2 3 4 5 6 7 8 9" 

FOR 1=1 TO R 

PRINT I I T A0 (7)1 

FOR J= I TO C 

IF ACI,J)=-I THEN 700 

IF At i , J)=0 THEN 720 

PRINT "♦ "I 

GOTO 710 

PRINT "P "I 

NEXT J 

PRINT 

NEXT l 

PRINT 

IF F=0 THEN 770 
RETURN 

REM GET CHOMPS FOR EACH PLAYER IN TURN 

LET 11*11+1 

LET P!=I l-l NT ( I 1/P)*P 

IF PI <> 0 THEN 820 

P1=P 

PRINT "PLAYER "I PI 

PRINT "COORDINATES OF CHOMP (ROW, COLUMN)" I 
INPUT RI,C! 

IF R 1 < 1 THEN 920 
IF R!»R THEN 920 
IF C1<1 THEN 920 
IF C1>C THEN 920 
IF AtR 1 ,C I ) 3 0 THEN 920 
IF A CR 1 , C 1 )*“ I THEN 1010 


'the ORIGINftLD.MENSI ONS OF THE COOKI. 


ZOT 


GOTO 940 
PRINT "NO FAIR. 
GOTO 820 
FOR I »R 1 TO R 
FOR J=C I TO C 
At I • J) *8 


YOU'RE TRYING TO CHOMP ON EMPTY SPACE!' 


1 

2 
3 
100 
1 10 
120 
130 

1 40 
150 
1 60 
200 

2 10 
220 
230 
2 40 

2 50 
260 
270 
280 
290 
300 
310 
320 
330 

3 40 
350 


970 

NEXT J 

360 

980 

NEXT I 

370 

990 

GOTO 610 

380 

1 000 

REM END OF GAME DETECTED IN LINE 900 

390 

1010 

PRINT "YOU LOSE, PLAYER ”»Pl 

400 

1020 

PRINT „ _ .. 

410 

1030 

PRINT "AGAIN <l=YESl C=NOI>"! 

420 

1040 

INPUT R 

430 

1050 

IF R= l THEN 340 

4 40 

1060 

END 

450 


128 


460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
62 0 
630 
700 
710 


REM ** 
REM *♦ 
REM *♦ 

■ REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
KEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DIM at 


HE GAME OF ZOT 

EOPLE’S COMPUTER COMPANY : AUGUST 
ROGRAMMED BY : MARC LE BRUN 
PROGRAM STRUCTURE 


9, 1974 (ABDICATION DAY) 


AT THE START OF THE RUN THE BOARD C8> AND STRINGS FOR 
THE SIDE TO MOVE FROM (SS> THE NAMES OF THE COMPASS 
DIRECTIONS (DS> AND ARBITRARY ANSWERS (AS) ARE 
DIMENSIONED AT LINE 700. INSTRUCTIONS ARE PRINTED 
BY THE BLOCK OF LINES BEGINNING AT LINE 800. 

THE GAME PROPER BEGINS AT LINE 1000 WHERE THE NUMBER OF 
ROWS AND COLUMNS (0<R»C<11) ARE INPUT. THE BOARD B IS 
FILLED WITH STARS (=1) , THE AUXILLIARY VALUES R! AND Cl 
(USED IN VARIOUS CONDITIONALS) ARE INITIALIZED, AS ARE 
THE TOTAL NUMBER OF STARS IN THE BOARD (N) AND THE PLAYER 
WHOSE TURN IT IS (P>. 

THE LOOP TRAVERSED FOR EACH MOVE BEGINS AT LINE 2000- 
FIRST 1 HE BOARD IS PRINTED. THEN THE SECTION FOR FETCH- 
ING THE ACTUAL MOVE IS ENTERED (AT LINE 3000)- THE SIDE 
OF THE BOARD (SS) IS INPUT. CHECKED, AND CONVERTED TO A 
NUMERICAL INDEX (0). THEN THE MOVE ROW 4 COLUMN (I0,J0> 
ARE FETCHED AND CHECKED. A SOMEWHAT COMPLICATED SECTION 
FOR CHECKING AND EXECUTING THE ZOT IS BEGUN AT 4000. 

THE BASIC PROCEDEURE IS TO BEGIN AT THE SPECIFIED ROW * 
COLUMN AND SCAN OUTWARD (WITH CO-ORDINATE INDICIES I * J> 
TO THE SIDE OF THE BOARD SPECIFIED BY D. THIS IS ACCOMP- 
LISHED 8 Y USING TWO INCREMENTS II 4 J1 • ONE OF THESE IS 
ZERO AND THE OTHER ♦ OR - I . DEPENDING ON THE DIRECTION 
OF THE ZOT. I I 4 J1 ARE DERIVED BY BLACK MAGIC FROM D 
VIA THE TEMPORARY VARIABLES D0 AND S, WHICH PLAY NO FUR- 
THER ROLE IN THE ALGORITHM. 

IN THE INITIAL SCAN A SWITCH <S0) =1 INDICATES 
SCANNING OVER STARS, =0 SCANNING OVER SPACE. THE TRANSI- 
TION (OF S0) I - > 0 IS LEGAL (TO ALLOW ZOTTING OVER LEADING 
SPACES). A 0- > 1 TRANSITION INDICATES THAT THE STARS ARE 
NOT CONSECUTIVE. A COUNTER (C»> OF THE NUMBER OF STARS 
SCANNED IS KEPT TO *1 SIMPLIFY THEIR REMOVAL IF THE 
ZOT IS LEGAL AND • 2 TO DETECT A ZOT CONTAINING NO STARS 
(WHICH CONDITION IS NOT CAUGHT BY THE S0 'TRANSITIONS*) 

IF THE MOVE PASSES ALL THESE TESTS THE INITIAL C0 POSI- 
TIONS ARE RESCANNED (WITH THE HELP OF A DUMMY INDEX K> 

AND SET TO ZERO. THEN N IS UPDATED, IF IT’S ZERO THE LAST 
STAR HAS BEEN ZOTTED AND «E ENTER A TERMINAL DIALOG. IF 
THE GAME’S STILL AFOOT WE SETUP FOR THE NEXT PLAYER AND 
RE-ENTER THE LOOP FROM THE TOP <J.E. LINE 2000) • 


AT LINE 5000 i 
REPLY BEGINS- 


SUBROUTINE THAT INSISTS ON A YES OR NO 
A IS SET TO I FOR ’YES’# 0 FOR ’N0 % - 


THESE REMARKS SHOULD SIMPLIFY UNTANGLING THE CODE. 
HOWEVER, BAS 1 CK IS HARDLY A TRANSPARENT LANGUAGE- 
THIS CODE IS DESIGNED TO BE SIMPLE AND COMPREHENSIBLE, 
NOT ’EFFICIENT* (WHATEVER THAT MEANS) »!! 

ONCE ONLY INITIALIZATIONS 
9, 1 0 ) . S S C 1 ),DSt4),ASC 72) 


cop’t 


720 

730 

7*0 

750 

760 

770 

780 

790 

000 

810 

020 


DS*"NSWE m 

PRINT 

PRINT THE GAME OF Z 0 T ***» 

PRINT 

PRINT »00 YOU WANT INSTRUCTIONS 
GOSU0 5000 MUNS 

PRINT 

IF A* 0 THEN 1000 
REM •** INSTRUCTIONS 


8*0 
8 50 
860 
070 

880 

890 

900 

910 

920 

925 


PRINT '* I N THE GAME OF ZOT Tut 

PRINT "THE LAST BITE OF A RECTANGln 2J? A, ° f> '-ArERS COMPETE TO pet- 
PRINT "'ZOT', CONSISTS OF TAX ! \ C °° K1 E ' * HOVE. CABLED 

PRINT "A GIVEN SIDE OF THE rSIrd £na HE STARS in « LINE BETWEEN" 
PRINT "OF THE BOARD ARE NAMED N E S. PAR ’'CULAR STAR. tSe SHOES' 

sis SoSHi i?v? •» r* 

" M "*■ n &?*&%£ RE . 

'•'"^’^onEVSp’s?^,’ 0 3 - 2r 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR I NT 


•ON A 
-SULT1NG 


« ur 

930 PRINT ’’THE STARS IN THF ZOT mmct 

940 PRINT "EMPTY SPACE UNLESS IT j S BET fcEF^TSf 1 * VE * Y0U MAY N0T ZOT" 
9 S0 PRINT "AND THE BEGINNING OF THE LAE OF I?Lf° GE ° F lHE BOARD 
96 0 PRINT "(IN THE GAME ABOVE THE SECOND Ll°" ARE Z0T HNG 

PRINT "BECAUSE 2.3 IS EMPTY. BUT • r FLAYER MAY NOT ZOT • S.2 
PRINT ' E ' 3 ' 1 * IS LEGAL)." 

PRINT "HERE WE GO 
REM **+ START THE GAME 
PRINT 

iSpUT T »T MANY R0WS AND C0LUMNS the COOKIE ", 

REM •** CHECK IF SIZE IS WITHIN LIMITS 
REM (NOTE RESEMBLENCE TO LINES 3 0 0 * 

IF R.CII-R) <= 0 THEN 1 08 0 180 * 4250 

IF C»< 1 I -C) >0 THEN 1 |00 

gS}S T . 000 LOWED C00KIE DIMEN,Si0ns range from , 

REM *♦* CHECK rOR INTEGRAL COOKIE 
REM (NOTE RESEMBLENCE TO LINE 3160) 

IF R-INT(R) ♦C*INT(C)=0 THEN 1 1 50 
PRINT "COOKIE MUST HAVE INTEGER DIMENSIONS." 

GOTO 1000 

* E ? ^ r I IALIZE B0ARD AN0 AUXILLIARY VARIABLES 

r OR I a I TO R 
FOR J= I TO C 


970 
9801 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
I0B0 
1090 
1100 
I 110 
I 120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2 110 
2120 
3000 
3005 
3010 
3020 
302 5 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3092 
3094 
3096 
3100 
3110 
3120 
3130 
3140 

3150 

3160 
3170 
3180 
3190 
3200 
4000 
<010 
4020 
<030 
<040 
<050 
<060 
<070 
<080 
<090 
<100 
<110 
<120 
<130 
<1 40 
<150 
<160 
<170 
<180 
<190 
<200 
<2 


TO 10. 


8 ( I • J)* 1 
NEXT J 
NEXT I 
R 1 =R ♦ I 
CI*C*I 
N=R*C 
P*1 

REM ••• MAIN MOVE LOOP 

REM *** PRINT THE BOARD 

PRINT 

FOR 1=1 TO R 

FOR J=| TO C 

IF Bt I . J3= 1 THEN 2080 
PRINT " ."l 
GOTO 2090 
PRINT " ♦") 

NEXT J 
PRINT 
NEXT I 
PRINT 

REM FETCH A MOVE 

REM FETCH BOARD SIDE 

PRINT "YOUR MOVE PLAYER ";pj" :" 

PRINT "SIDE TO ZOT FROM 
INPUT SS 

REM DETERMINE SPECIFIED SIDE OF BOARD 

D= I 

IF S St I. I 1 = Df C D. D ) THEN 3092 
D = D*1 

IF D< 5 THEN 3050 

PRINT "THE SIDES OF THE BOARD ARE NAMED N.E.S t W 
GOTO 3020 

REM »•* FETCH CO-ORDINATES 
PRINT "ROW. COLUMN TO ZOT TO "I 
INPUT 10, J0 

REM CHECK IF MOVE IS ON BOARD 

REM ••• (NOTE RESEMBLENCE TO LINES 1040 i 4250) 

IF 1 0 • ( R | - 10) <= 0 THEN 3140 
IF J0*(CI-J0)>0 THEN 3160 
PRINT "ROWS ARE NUMBERED 1 THRU "IRJ 
GOTO 3092 

REM »•* CHECK THAT MOVES ARE INTEGERS 
REM m* (NOTE RESEMBLENCE TO LINE 1100) 

IF 10- INT( 10) ♦ J0- INT< J0>=0 THEN 40C0 

PRINT "MOVES MUST REFER TO WHOLE NUMBERED ROWS AND COLUMNS 
GOTO 3092 


4230 
42 40 
42 50 
42 60 

42 70 
4280 
4290 
4300 
4310 
4320 
4330 

43 40 
43 50 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
S000 
5010 
5020 
5030 
50 40 
5050 
5060 
5070 
5080 
9999 


I * I ♦! I 
J=J*J1 

REM CONTINUE SCANNING IF STILL ON BOARD 

REM **♦ (NOTE RESEMBLENCE TO L T N£S 1040 i 31201 
IF I *(R 1 - I > * J*(C1- J) <> 0 THEN 4110 
REM CHECK FOR NULL ZOT 

IF C0>0 THEN 4330 

REM PLAYER HAS ATTEMPTED TO ZOT EMPTY SPACE 

PRINT "THE STARS IN YOUR ZOT MUST 8E CONSECUTI VE." 

GOTO 3000 

REM *** MOVE IS LEGAL. UPDATE BOARD ETC- 

REM *4* (SAME SCANNING TECHNIQUE AS ABOVE AT 4e00) 

1=10 

J=J0 

FOR K=| TO C0 
B C I , J3 = 0 
I = I ♦ I 1 
J=J*JI 
NEXT K 
N=N-C0 

REM *•* CHECK FOR A WIN 
IF N = 0 THEN 4480 

REM *** NO WIN, SETUP FOR OTHER PLAYER AND LOOP 
P = 3 - P 
GOTO 2000 

REM *** ANNOUNCE THE WIN 
PRINT 

PRINT "CONGATULATIONS PLAYER "JP|~ ON YOUR SUPERB ZOTSMANSH 1 P • t- 
PRINT "(BETTER LUCK NEXT TIME PLAYER "73-Pi" 

PRINT 

REM •** OFFER A REPLAY 

PRINT "WOULD YOU LIKE TO PLAY ANOTHER GAME OF ZOT " i 
GOSUB 5000 
IF A= I THEN 1000 

PRINT "0 * K • , SEE YOU FOLKS LATER. ~ 

PRINT 

STOP 

REM SUBROUTINE FOR YES/NO RESPONSES 

INPUT AS 

A = 0 

IF A S="NO” THEN 5080 
A=1 

IF AS="YES" THEN 5080 

PRINT "PLEASE ANSWER YES OR NO." 

GOTO 5000 

RETURN 

END 


COLUMNS 1 THRU "IC» M 


GOTO 3092 

REM ••• SCAN ALONG LINE OF ZOT, VERIFY MOVE AND UPDATE BOARD 
REM SET UP MACHINERY FOR SCANNING 

O0=INT< CD- 1 )/2) 

S=2 •( 0-2 *D0 ) -3 
I 1*S*( | -D0) 

Ji >S*O0 
1*10 
J* J0 

REM INITIALIZE SEARCH SWITCH AND STAR COUNTER 

S0s| 

Cfl a 0 

REM SCAN outward from move to edge of board 

Rem »•* TEST FOR STAR 

REM 8 ii: J roiND H A N S pIcE i SET SWITCH AND CONTINUE SCAN 
S0»0 

GOTO 4220 

T . r “ ::: ur^\iiTso^o an > u . m «. zot , 

Ji r em S U! we increase the star count 

*** ADVANCE SCAN CO-OROINATES TO NEXT POSITION — > 



Hide 6JC Seek in 2D 


HURKLE 


100 
I 10 

120 

no 

no 

iso 

1 (VO 
I 70 
I bO 
190 
200 
210 
220 
230 
■2*0 
250 
260 
270 
260 
2VU 
300 
310 
320 
330 
340 
350 
360 
370 
360 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
4 90 
500 
510 
520 
530 
54 0 
550 
560 
570 
5bO 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
TOO 
710 
720 
730 
740 
750 
760 
7 70 
760 


RKM *** HUH KLE - PEOPLE'S COMPUTED COMPANY, MENLO PARK, CA 

PRINT ••WANT THK RULES** l 

1 NP1 IT 4»C l , 11 

IF /.l "Y" THEN 4 50 

RKM •<«* HERE A HE TKF. K'»LES 

PRINT **A HURKLE IS Hill NO IN A CHIP, LIKE THE ONE BELOV." 

PHI NT 
F*R 1 NT 

PRINT T AB <2 6 > J " NORTH" 

PRINT 

FOR K*9 TO 0 STEP -I 
IF K «> A THEN 240 

PRINT TAU<h> r'W'EST 4";TAB<20>)" EAST" 

GOTO 250 

PRINT TA«< 14 > JKJTAUtP.O *' 

NEXT K 
PH 1 NT 

PRINT TAB <s>0 )"0 1 2 3 4 5 6 7 6 9” 

PRINT 

PRINT TAB (26 > J" SOUTH’* 

PRINT 

PRINT **TRY TO GUESS WHERE THE Hi'HKLF. IS HIDING* YOU GUESS" 
PRINT *' iY TELLING ME THK GRIPPOlNT WHERE YOU THINK THAT" 
PRINT **THE HVPKLF. IS HIDING* HOMED ASK IS POINT 0,0 IN’* 
PRINT ** THK SOUTHWEST CORNER* YOUR GUESS SHOULD BE A HA I H" 
PRINT ** OF WHOLE NUMBERS, SEPARATED BY A COMMA * THE FIRST" 
PRINT "NUMBER TF.L1.S ROW FAR TO THE RIGHT OF HOMLBASF AND" 
PRINT "THE SECOND NUMBER TELLS HOW FAR ABOVE HOMEHASF. YOU" 
PRINT * * T J 1 1 N K THE HURKLE IS HIDING. FOR EXAMPLE, IF YOU 
PRINT "THINK THE HUrtKLK IS 7 TO ThE RIGHT AND 5 ABOVE" 

PRINT "HGKKRASE, YOU ENTER 7,5 AS YOUR GUESS AND THEN" 
PRINT "PRESS THE 'RETURN* KEY. AFTER EACH GUESS, 1 WILL" 
PRINT "TELL YOU THE APPROXIMATE DIRECTION TO GO FOR YOUR" 
PRINT "NEXT GUESS • GOOD LUCK!" 

RF.M +»» HURKLE ’PICKS* A GRlDPOiNT AND HIDES 
LET A= INK I 0~RND(0> > 

LET B= 1 NT ( I 0*HND (O > ) 

PRINT 

PRINT "THE HURKLE IS HIDING - TRY TO FIND HIM!" 

REM »*» GF.T A GUESS AND PRINT INFO FOR PLAYER 


LET K*=l 
PRINT 

PRINT "VHAT IS YOUR GUESS" ) 

INPUT X,Y 

IF ABS ( X- A > +ABS ( Y-B > C U THEN 600 
HEM *** GO TO INFO SUBROUTINE 
G0S1JR 650 
LET K=K*1 
GOTO 510 

REM HURKLE HAS BEEN FOUND I 

PRINT 

PRINT "YOU FOUND HIM I N" K I "GUESSES I ! I" 

PRINT "LET'S PLAY AGAIN." 

GOTO 450 

REM **¥ SUBROUTINE! PRINT INFORMATION FOR NEXT GUESS 

PRINT "GO *' i 

IF Y*» THEN 710 

IF Y<3 THEN 700 

PRINT "SOUTH" ) 

GOTO 710 
PRINT "NORTH**; 

IF X=A THEN 760 
IF X<A THEN 760 
PRINT "VEST** ; 

GOTO 760 

PRINT "KAST"J 

PRINT 

RETURN 

END 


MUGWUMP 


I 10 

120 
130 
140 
ISO 
160 
170 
lhO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
260 
290 
300 
310 
320 
330 
340 
350 
360 
370 
360 
3V0 
400 
410 
420 
430 
440 
450 
460 
4 70 
4 BO 
490 
500 
510 
520 
530 
54 0 
550 
560 
570 
560 
590 
600 
610 
620 


REM PEOPLE'S COMPUTER COMPANY, hENLO PARK CA 

PRINT "WANT THE RULES'*; 

INPUT E5Cl,n 

IF Zi *> "Y" THEN 400 

REM *** HERE ARE THE RULES 

PRINT "A MUGWUMP IS HIDING IN A GRID, LIKE THE ONE BELOW." 
PRINT 

FOR K« 9 TO 0 STEP -1 

P»1NT TAB ( 1 4 ) I K I TAB (20 > " 

NEXT K 
PRINT 

PRINT TAB(20>;"0 1 2 3 4 S 6 7 6 9" 

PRINT 

PRINT "MUGWUMP WILL BE HIDING AT ONE OF THE GR1DP01NTS." 

PRINT "YOU TRY TO FIND HIM BY GUESSING HIS GR1 D-*0 1 NT ." 

PRINT "HOMFHASF. IS POINT 0,0 IN THE LOVER LEFTHAND" 

PRINT "CORNER OF THE ENTIRE GRID* YOU- GUESS SHOULD HE" 

PRINT "A PAIR OF WHOLE NUMBERS SEPARATED HY A COMMA." 

PRINT "THE FIRST NUMBER TELLS HOV FAR TO THE RIGHT OF" 

PRINT " HOMED ASE YOU THINK MUGWUMP IS HIDING AND THE " 

PRINT "SECOND NUMBER TELLS HOV FAR A*«OVE HOMEWARE YOU" 

PRINT "THINK MUGWUMP IS HIDING." 

PRINT 

PRINT "FOR EXAMPLE, IF YOU THINK MUGWUMP IS 6 TO THE RIGHT" 
PRINT "OF HOMEHASF AND 3 AMOVE H0KE4ASK, YOU ENTER 6,3" 

PRINT "AS YOUR GUESS ANU THEN PRESS THE * RETURN ' KEY." 

PRINT "AFTER YOU GUESS, 1 VILL TELL YOU HOV FAR (IN A DIRECT” 
PRINT "LINE) YOUR GUESS IS FHOM WHERE MUGWUMP IS HIDING-*' 

REM HIDE MUGWUMP AT RANDOM GRIDPOINT A , rf 

LET A= I NT ( I 0»RND(G > ) 

LET H= I NT ( I0*RND(0) ) 

PRINT 

PRINT "MUGWUMP IS HIDING... TRY TO FIND HIM!!!" 

LET T*| 

PRINT 

PRINT "VHAT IS YOUR GUESS") 

INPUT X, Y 

RFM IF MUGWUMP NOT FOUND GO TO LINE 500 

IF X <> A ThEN 560 
IF Y <> B THEN R60 

PRINT "YOU FOUND HIM IN" ;T)"GUESSES | ! ! " 

PRINT "LET'S PLAY AGAIN." 

PRINT 
GOTO 4 00 

REM D=STRA1GHTL1NE DISTANCE TO MUGWUMP 

LET I)«S0q<(X-A>»2MY-B)iP> 

REM »•* THEN WE ROUND D TO ONE DECIMAL PLACE 

LFT D»1NT { I0*D>/|0 

PRINT "YOU ARE" JD J"UN1 TS FROM THE MUGWUMP." 

LF.T T*T ♦! 

GOTO 4 SO 
END 


130 


SNARK 


»eo 

»** 

iK> 

is* 

1*0 

|W 

!«• 

l*® 

W 

tio 

iW 

13* 

**c 

rs>o 

9*0 

tr o 
tec 
**o 
360 
310 
3*0 
MO 
MO 
3SO 
MO 
3W 
3*0 
3*0 

4*0 
410 
4?0 
430 
4*3 
450 
460 
*70 
4 JO 
4*0 
500 
510 

5*0 

530 

5*0 

550 

560 

570 

5*0 

5*0 


*** *"* ***** ... r^cu ... 

*«* — PFO-*I.F^ C OT«>W^ 5? 1 Tt4 * VF.LL P LACrn nb 

PHIKT -v,„r r HF ** COeo At;V# j£2 r f CLC 

!**UT C 3 tl«|J K CA 

ir ii «» **Y- THEN 3 VO 

«* T * hulh 

P*< 1 *>'T -A SNASK IS HlDI h.r 

£!£ ” S,K,W< ’ ft '° BY '° <*>*-> uw THE ONE" 

P^IKY * Y“ 

r« Y'« Ttt o STEP -I 
P*SfttY Yi~ .... 

NEXT T 

PSINT 

1»SINT TA8CM1" O i p 

P*lkT W| »3«S«<|* 9jp . 

PS1NT -TVY TO CATCH HIM. k F « f . c 

Thu- X#Y COO»D I NATE 5 OF a Toi *** **' E *' S 1 ASK, YOU TYPE” 
~:*r -vhat t f at a 1k soSrn^ ,VOlNT Y <‘” ‘>ON'T KNOW" 

^ 1MT ~ KEY * THEK. VhEN 1 A5K fSp ^1, > , AND PHESS THE «ETl««k” 
^SINT -o* A Cl-^CUT CFNTEHED ON°TMF ' Y °'’ TYH " THK KADiUS" 

PRINT "^ |Mfc||S YOU ^,c T <,RII>P02nt ^HOSE X. Y" 

^INT -VMFTHER ThF SMAHK is • iK^inr > i * ,U - 7hEW TELL YOU" 
^IKT -WK, C IMCLE# OR *ON^ yS^TiHcJS^ 

^INT "hlPlKG. ^FNT£R O ‘ < \IdwT° V HE 1 S " 

W£H *»• HtPF THE SHARK * S Tht RAO,,,s * GOOD HUNTING." 


START GUESSING!" 



KEH • hlOE THE SHARK 
LF.T >*INTx K.»Rf:ruo ) i 
LET Y*INT< lO«^ND(0>> 

PRINT 

PRINT "SNARK IS HIDING 
SFf »»» GUESSING BEGINS 
K* I 
PRINT 

PRINT -COORDINATES-; 

INPUT A.R 

IF A* I NT ( A ) AND H-lNTCB> THEN 5 |0 

StcTaSO 0 ^ 001 ^ T ° TEU ” Y<M * ~ C0ORDiNA TES MUST BE 1 NTEGERS ! " 

LET 0?*(X-A>«(X-A)*(Y-H)«(Y-a) 

PRINT "RADIUS-; 

INPUT R 

IF R* INTC R1 AND R > * 0 THEN SbO 

PRINT -VHOOPS! THE RADIUS MUST BE A VHOLE NUMBER.” 

PRINT 
GOTO 520 

IF R «> O THEN 600 
IF DP*0 THEN 710 
IF D2<R»R THEN 630 
IF D2»R*R THEN 6S0 
IF D2*R«R THEN 670 

PRISTT "SHARK IS INSIDE YOUR CIRCLE” 

GOTO 660 

PRINT “SHARK IS OUTSIDE YOUR CIRCLE” 

GOTO 6 AO 

PR I IiT -SHARK IS OH YOUR CIRCLE” 

F*KU 
COTO 450 

IL*K •«• vr r-DT A v inker 
PRINT 

PRINT -YOU CAUGHT HIM I H” ; K; "GUESSES ! If ” 

PPINT -GOOD SKf«W|“ 

PRINT 

PRINT -VAN7 TO PLAY AGAIN” i 
1KSRTT U(l.l) 

IF ZS «— T— 7HF-N 3*0 
END 


G 

a 

n ni 

Pattern 

s 


DANGLE 


10 

REM 

• THE DANGLING STRING 

20 

REM •• 

* WRITTEN BY OAVE KAUFMAN, AUGUST 1973 

30 

REM COPYRIGHT, PEOPLE’S COMPUTER CENTER ■ 

40 

REM •** 1921 MENALTO AVE- , MENLO PARK, CA. *< 

50 

REM G 

IS THE # OF THIS GAME 

60 

G= 1 


70 

PRINT "WELCOME TO ... THE DANGLING STRING” 

80 

PRINT 


90 

PRINT * 

’HOW MANY STARS DO YOU WANT"! 

100 

INPUT 

S 

1 10 

S = ABS C 1 NT < 5 > MAX l> 

120 

PRINT 


130 

PRINT 

"HOW WILD"! 

1 40 

IF G*1 

THEN 200 

150 

PRINT 

”7" 

160 

PRINT 

” 4= VERY WILD" 

170 

PRINT 

" 3= PRETTY WILD" 

180 

PRINT 

" 2 = A LITTLE WILD" 

190 

PRINT 

" 1 =A TINY BIT WILD" 

200 

INPUT 

W 

210 

W* ABS { I NTC W) ) 

220 

IF W>0 

THEN 250 

230 

W= 1 


240 

GOTO 270 

2 50 

IF W <= 4 THEN 270 

260 

W= 4 


270 

REM GET FIRST POSITION 


WHERE WILL THE STRING START ” l 
THEN 350 
?” 

I 10 20 30" 

II I I" 



280 PRINT 
290 PRINT 
300 IF G» 1 
310 PRINT 
320 PRINT 
330 PRINT 
3 40 PRINT 
350 INPUT X 
360 X=ABS< INTCX) ) 

370 XMCX-I) MAX 0) MIN 32 
380 PRINT TABfXJl"*— 

390 REM PINO THE FIRST DISPLACEMENT 
480 D=SGN ( 32 •RND(0)-X*l» 

410 REM NOW LOOP FOR EACH STAR 

420 FOR 1=2 TO S 

430 D=D*5GN< 32 •RNO^0)-X*|) 

440 IF W »s ABS < D) THEN 460 
450 0= W»SGN( 0) 

460 REM FINO NEXT POINT 
470 X=X ♦D 

480 IF X>0 THEN 500 
490 X= I 

500 PRINT TAB< X) »”*” 

510 NEXT I 
520 PRINT 

530 PRINT "THAT ’S ALL, FOLKS f- 
540 PRINT 
550 G»G* I 

560 PRINT "HERE WE GO AGAIN ...” 

570 GOTO 50 
580 END 
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SUNSIGN 


1 REM ••• SUN SIGN DESIGN - PEOPLE’S COMPUTER CENTER 

2 REM ••• BOX 310 MENLO PARK CALIFORNIA 94025 ••• 

3 REM ••• PROGRAMMER l JANE WOOD 

4 REM 

10 DIM AS( 72 I .BSC26 ) 

20 BS="ABCDEFGHI JKLMNOPORSTUVWXYZ” 

REM 

REM INSTRUCTIONS 

PRINT 

PRINT “DO YOU NEED INSTRUCTIONS ”1 
GOSUB 4000 
PRINT 

IF X = 0 THEN 200 

PRINT ’’THIS PROGRAM PRINTS DESIGNS BASED ON A PERSON’S' 
PRINT “NAME AND SUN SIGN. HERE IS A TABLE OF SUN SIGNS 
PRINT 

MAR 2 I - APR 20 
APR 21-MAY 21 
MAY 22- JUN 21 
JUN 22- JUL 23 
JUL 2 4- AUG 23 
AUG 2 4- SEP 23 


30 
100 
105 
1 16 
115 
120 
125 
130 
132 
134 
136 
138 

140 
1 42 
144 
146 
1 48 
150 
152 
154 

1 56 
158 
160 
200 
205 
210 
215 
220 
225 
230 
235 

2 40 
245 
2 50 
255 
260 
265 
270 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
32 5 
400 
405 
410 
415 
420 
425 
430 
43 5 
440 
445 
450 
455 
460 
465 
470 
475 
480 
485 
500 
50 5 
510 
515 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
57 5 
580 
585 
590 
595 
600 
605 
610 
615 
620 
62 5 
630 
635 
640 
645 
650 
655 
660 
665 
670 
675 
600 
685 
690 
695 
700 


LIBRA SEP 2 4- OCT 23” 
SCORPIO OCT 2 4- NOV 22" 
SAGITTARIUS NOV 23-DEC 21" 
CAPRICORN DEC 22-JAN 20” 
AQUARIUS JAN 21 -FEB 19” 
PISCES FEB 20-MAR 20” 


"FIRST NAME 
3000 
1000 


"MIDDLE NAME 


PRINT " AR I ES 
PRINT “TAURUS 
PRINT "GEMINI 
PRINT "CANCER 
PRINT "LEO 
PRINT "VIRGO 
PRINT 

PRINT "THE PROGRAM ASKS FOR A FIRST. MIDDLE AND LAST 
PRINT "NAME. IF YOU DON’T HAVE A MIDDLE NAME TYPE A" 
PRINT "CARRIAGE RETURN. THE PROGRAM ONLY PAYS ATTEN- 
PRINT "T 1 ON TO LETTERS. AND IGNORES ALL OTHER TELE-” 

PRINT "TYPE CHARACTERS. HERE WE GO ** 

PRINT 

REM GET STRING PARAMETERS 

PRINT 
PRINT 
PRINT 
GOSUB 
GOSUB 
V0 = X 
PRINT 
PRINT 

GOSUB 3000 
GOSUB 1000 
V2=X 
PRINT 

PRINT "LAST NAME "I 

GOSUB 3000 
GOSUB 1000 
V4*X 
PRINT 

PRINT "SUN SIGN "» 

GOSUB 3000 
GOSUB 1000 
V6*X 
PRINT 
PRINT 
PRINT 
REM 

REM COMPUTE NUMERIC PARAMETERS 

V* V0 
©■9 

GOSUB 2000 
V I *M 
V=V2 

GOSUB 2000 
V3*M 
V=V4 
0*7 

GOSUB 2000 
V 5 =M 
V«V6 
0*5 

GOSUB 2000 
V9 = M 
C = 0 
REM 

REM •** PICTURE PRINTING LOOP 
FOR J»-(V90> TO V9*2 
AS*" 

V0-V0-J 
V2»V2- J 
K0=2 ♦ V5+2 
REM 

REM COMPUTE ROW ••• 

FOR K = -K0 TO K0 
Kl*K0«K*18 
V0=V0-K*V5 
V-V0 
0 = 9 

GOSUB 2000 
V7*M 

V2“ V2-K4V3 
V=V2 
0=7 

GOSUB 2000 
V8*M 

IF K <> K0 THEN 610 
V 8»- I 

GOTO SGN< V8-V7) +2 OF 625.615.635 
ASCKI.KI 3»"0" 

GOTO 640 
ASCK l . R 1 - 
GOTO 645 
AS ( K I . K 1 ]*"*" 

C-CM 
NEXT K 
REM 

RC M •** PRINT ROW 
K* I 

IF C*0 THEN 695 
PRINT ASIK.K3I 
|F AS t K. K 1*" " THEN 685 
C«C-I 
K*K* 1 

IF K <• LEN< AS) THEN 665 
PRINT 
NEXT J 


800 
80S 
810 
815 
820 
82 5 
830 
835 
8 40 
845 
1000 
1010 
1020 
1030 
10 40 
1050 
1060 
1070 
1080 
1090 
1100 
1 1)0 
I 120 
1130 
2000 
2010 
2020 
2030 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
4000 
4010 
4020 
4030 
40 40 
40 50 
4060 
4070 
4080 
4090 
4100 
9999 


REM *** ASK FOR ENCORE *** 

PRINT 

PRINT 

PRINT 

PRINT "WOULD YOU LIKE TO DO ANOTHER ONE "I 
GOSUB 4000 
IF X= I THEN 200 
STOP 

R REM CONVERT INPUT STRING TO NUMBER ... 

X = 0 

J= I 

IF J>LENCAS> THEN 1120 
K = 1 

IF K>26 THEN I 100 

IF ASI J. Jl=BStK,K3 THEN 1090 

K = K ♦ 1 

GOTO 1050 

X = X*K* I 92 

J=J*I 

GOTO 1030 

RETURN 

REM 

REM ♦** MODULOUS FUNCTION **♦ 

M=V-INT<V/0>*0* 1 

RETURN 

REM 

REM *** FETCH STRING *** 

PRINT "? ”1 

ENTER 2 55. T. AS 

IF T = -2 56 THEN 3020 

PRINT 

RETURN 

REM 

REM YES OR NO FETCH *** 

X = 0 

INPUT AS 

IF AS="NO" THEN 4090 
X= 1 

IF A$«"YES" THEN 4090 

PRINT "PLEASE ANSWER YES OR NO ..." 

PRINT "ANSWER " i 

GOTO 4010 

RETURN 

REM 

END 
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|0 

IP 

M 

|6 

1 * 

20 

7? 

24 

26 

9b 

30 

32 

3* 

36 

36 

40 

«2 

44 

46 

46 

50 

52 

54 

56 

5H 

60 

6e 

64 
66 
6« 
70 
72 
74 
76 
78 
80 
62 
64 
66 
68 
90 
92 
|00 
no 
120 
130 
140 
ISO 
160 
170 
160 
190 
2 00 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
JOHO 
1090 
1100 
1 1 10 
1120 
1130 
1140 
1150 
1160 
I I 70 
I I 60 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1260 
1290 
1300 
1310 
9999 


mandal 

— NFW WITH MODIFIED ,/oT^ 

* oIm PROW** COMPUTFH CFNTFR , * ; " 

3 rkm ••• pkogxanhe* * marc if hhh n .?' ,2/7a ••• 


INTRO 4 INITIAL DIALOG 1 UAiii 
BE* ... OH i G INAL hroohaw hy GHKO Yu* .*? Fban 
l)JH CM6J/A6C3I 


PRINT 

PRINT 

PRINT 

PAINT 

PRINT 

PRINT 


PRINT 

print 

PRINT 

PRINT 


P |«3. 14159 

PRINT » INTRODUCTION (YES 0 R N0> ~ ; 

INPUT A% 

if Alt I- I ) •"N" THEN 100 

PRINT 

• YOU . DEMON A MANDALA BY TYPING IN SOME niimheHS.- 

at the M * f ' l >ALA’<! , CENTFH P ^Nn ,! F"TENDS M STP ? F * L " ,,E THAT ST '' ^T, 

SWI NO I NO IT AS If IT NEB? A E » L let'™ °" T - 

F.no TO 6KEP IT ^TRAICHT. CrtE^THE^INF nlp^™ * ^ f T 0 ' 1 rS " 
PRINT "HAKE AN I NT EREST 1 NO SURFACE." T E L, ^‘ ° ,P AND C,|MHS * TOD’LL" 
PRINT 

pS!£ ™‘ , 5oS 9 !K«!KSS.r" , “ ™ *«« - — *«*•«. 

PRINT 

THE^R I PPL E W ANn " A ^'’ T t>ALA5 15 * LL » H0,IT - • TO'J • COMlNOL" 
THE R I PPL.E , AND • YOU • CONTROL THE DIPPING." 

HOW MANY RIPPLES FROM YOUR HAND TO THE END? THAT'S CALLFO 
p R , NT "THE RtPPLF. FREQUENCY* AND MOV MANY DIPS IN A COMPLETE SWING," 
PRINT "THAT'S A FREQUENCY TOO." SWING, 

PRINT 

PRINT " WHEN • YOIIR - MANDALA IS MADE , THE RIPPLE AND OIP" 

PRINT "EFFECTS ARE ADDED - IF ONE IS POSITIVE AND THE ..THrU NFNA T f VF • " 
PRINT "YOU'LL TEND TO GET A BLANK AREA. HUT IF BOTH PQSIIIVF." 

PRINT "YOU'LL HAVE LOTS OF 6 AND m PRINTED - NEGATIVE sijPF ACES'* 

PRINT "ARE SHOWN WITH * AND . SYMBOLS • " 

PRINT 

PRINT " ONE MORE THING - YOU CAN MAKE THE RIPPLES AND DIPS HAVE" 

PRINT "DIFFIRFNT IMPORTANCE. WHEN YOU GIVE YOUR RIPPLE (OR f)|P>" 

PRINT "FREQUENCY, TYPE A COMMA, AND THEN AN IMPORTANCE NUMHF.R." 

PRINT "WHICHEVER HAS THE LARGER IMPORTANCE. NUMBER WILL BE THE MRQGGLR.' 
PRINT 

PRINT " YOUR MANDALAS HAVF. A THIRD EFFECT, A COMBINATION OF - T »»S 4*.D" 
PRINT "RIPPLES. ALL THREE EFFECTS ARE ADDED TO GET THE SURFACE." 

PRINT 

PRINT " ADVICE » UNTIL YOU HAVE A GOOD FEEL FOR DIPS AND RIPPLES'! 
PRINT "USE ZERO <0> FOR YOUR COMBINATION NUMBER. ALSO, USE SMALL" 

PRINT "INTEGERS, LIKE 1 OR 5 OR 4." 

REM •** INITIAL DIALOG 
PRINT 

PRINT "SIZE OF MANDALA IN INCHES “J 
INPUT S 

IF S >■ I AND S «• 7 THEN 160 

PRINT "MANDALAS CAN BE BETWEEN 1 AND 7 INCHES •" 

PRINT "SI ZE "I 
GOTO 130 
S-INT(2.5*S-.5) 

PRINT "DIP FREQUENCY AND IMPORTANCE "! 

INPUT FI, Cl 

PRINT "RIPPLE FREQUENCY AND IMPORTANCE "/ 

INPUT F2,C2 ■ -— 

PRINT "COMH I NAT I ON IMPORTANCE "I 
INPUT C3 


PRINT 

PRINT "HERE IS YOUR MANDALA I" 
PRINT 

RKM PARAMETER NORMALIZATION 

FI«INT(F I ♦ • 5 > 

F2»INT(F2*.5> 

C I *ABS (C I ) 

C2»AHS(C2) 

G3“ ABS (C3 ! 

C«CI *C2*C3 
C I *3*C I /C 
C2*3*C2/C 
C3~3 *C3/C 
PRINT 

HEM *•* PRINTING LOOP 
FOR Y*S TO -S STEP ** I 
Y2“Y*Y 

REM FIND EDGE 
XI «S 
X2--S 
X3-- I 

FOR X*XI TO X2 STF.P X3 

R-SQP<X*X*Y2>/S 

IF X <> 0 THEN I 120 

A*P I *SGN(Y)/2 

GOTO 1150 

A=ATN(Y/X) 

IF X>0 THEN I ISO 
A«=A*PI 

Gl =S1N<FI *A> 

G2'S IN(F2*R*PI > 

Qr 1NT (C 1 *GI ♦C2*G2*C3*GI *02 3 

IF X3* I THEN 1250 

IF 0^3 OR 0*4 THEN 1260 

REM FOUND EDGE 

XI * - S 

X2»X 

X3 * I 

GOTO 1070 

PRINT CS I Q/0 J JCS lQ * 03 1 
NEXT X 
PRINT 
NEXT Y 

PRINT "HERE WE GO AGAIN 

GOTO 100 

END 


LIFE 


IB 

20 

30 

— ' 40 

50 
60 
70 
R0 
90 
100 
I 10 
120 
130 
| 40 
I 50 
160 
170 
IB0 
190 
200 
210 
220 
230 

2 40 

2 50 
2 60 
270 
2R0 
290 
300 

3 10 
320 
330 
340 

3 50 
360 
370 
3H0 
390 
400 
4,0 
420 
430 
440 

4 50 


UKm-LIFF. DEVELOPED FOR 200 OF 
0 1 R S(29*291 
DIM MS 172 i 
Y = A-*S*0 
•Ml S=/£» 

PRINT " I NS 1 RUC T T ONS" I 
INPUT JFI 1 # I 1 

MBINf'-’lirsTs JOHN CONN# V * S CAME OF LIFE. AHTICLfS IUHIHKP OESC»tH|NO- 
, . may ue FOUND in The MATHEMATICAL games SEC I t ON OF 

P,“!w! "Cc?ENUFIC I»E»ICAN issues. OCIOHER -70. NOVt««K» *70. FEOHUANY -71 

,| iuc GAME INVOLVES CELLULAR GENERATION GROWTH* EACH CELL IS 
Z M ONE pS IN TE CHARACTER. A CELL IS SIWOUNOF 0 MY EIGHT OTHER" 

Z J{ ”r fLLS ♦ IN THREE DIRECTIONS: 0 1 AGONAELY .MOM I /ON T ALL Y . VER | TC ALLY. " 
2}3I "IN GENERATION CELLS DIE AND d»0« SIMULTANEOUSLY." 

SSJUI ffi I 0IE5 FROM OVERPOPULATION IF IT IS 5USPR0UM0ED HY MORE" 

mil i'hSfF LI VINO CELLS. If HILL ALSO IMF OF ISOI AttO.1 IF If HAS- 
w HAH' ISO CELLS SOHBOUNOIMC If. HE W CELLS CAN IH FO-mHJ IN- 

hj,h[ -eh“y p5s,UonS only; if and ohly if ir has ihmee cells ahouho it.- 

1!u!ht -you -ill hf. asked ro f.hter thl first, last, and the iuiibval- 
print "HETWETN THE GENERATIONS TO HE PRINTED." 

print "ENlFR YOUR API TE»N INI QUOTES — A LINE AT A T | MF — A ••• WHl WE " 

^ JJf YOU WANT A LIVE CELL AND A * • (SPACE, FOW AN E MHf Y ONE." 

PRINT "MAA HOARD S I w*K 15 2H HY 20." 

PMIMT "WHEN YOU* PE F INTSMEDr TYPE THE W«HO *OONE* AS YOUR LAST LINE." 

PRINT "Bh SURE EACH LINE YOU FNftR IS IN QUOTES." 

POINT "NOTE.: IF THE LIMITS OF THIS PROGRAM ARE REACHED. IT WII.L ThKMINAlh. 
P PINT 

POINT "WHICH GENERATION SHALL THE PRINTING START wlTM"» 

PRINT "AND THE LAST GENERATION"! 
input ri 

PRINT "ALSO, HOW MANY SHALL I SKIP"* 

INPUT 0 
0*04 , 

PRINT "ENTER PATTERN!" 

FOR M * I TO 28 
INPUT M* 

IF Ml*" DONE" THEN 570 
IF LENT M T ) <2 9 THEN 490 

PRINT "NO MOKE THAN 28 CELLS PER LINE" 

GOTO 440 

FOR R » I TO L F-N ( M 5 ) 


500 
510 
520 
530 
5 40 
550 


IF MT TR,R i* 
IF Mt(R,RlA" 
S (M, R 1 * I 
A»A ♦! 

5 »S MAX R 
NEXT r 
NEXT M 


THEN 550 
THEN 580 
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con’t 


TYPE the LINE AGAIN" 


life 


IS NEITHER A BLANK NOR A 


*TO GOTO *00 
SGO PRINT 
V>« GOTO 440 

<>•0 DIM XI *?<».:> VI 

610 IE NOT Y then 630 
620 GOTO OP 
630 MAT X* ZER 
64Q V«G«0 

6$fl Y»Nl>M-l 

660 PRINT **GENf RAT 1 ON ■ 0 POPULATION -"lA 

6T0 G0SU8 | 1 00 

6A0 G* G ♦ I 

6V0 A»V»0 

700 MAT S«ZER 

710 FOR MM TO N! 

7aO FOR R« 1 TO S 
730 J*« 

7 40 IF M>28 OR R>?B THEN | 4?0 

750 IF NOT XIM.RO ) OH R*5 THEN 770 

760 J»J*1 

770 IF NOT X(M«1»K«1] OR M-Nl OR R«S lHEN 790 
700 J*J*1 

790 IF NOT X(M«l.tt) OR M-NI THEN BI0 
000 J*J*1 

810 IF M*N I OR R ■ I THEN 840 
820 IF NOT XtM*l.R-l) THEN 840 
830 JsJ*1 

040 IF R-1 THEN 070 
0 SO IF NOT XCM.R-1) THEN 070 
060 J-J*l 

070 IF MM OR KM THEN 900 
080 IF NOT XIN-I.R-1J THEN 980 
090 J«JM 

900 IF MM THEN 930 

9I0 IF NOT XtM-I.RJ THEN 930 

980 J-JM 

930 IF M« I OR R»S THEN 960 
940 IF NOT X1M-I.RM) THEN 968 
958 J»JM 

968 IF JO THEN 980 

970 IF J#2 OR NOT XIH.R) THEN 1000 

900 StM.RJM 

990 A«AM 

1 000 NEXT R 

1010 NEXT M 

1020 IF AO THEN 1390 

1030 IF G»Rl THEN 1850 

1840 IF G«T OR < G-T)/0#INTCCG-T)/0) THEN 1070 

1050 PRINT "GEN-"GJTAB<2*R-1>"P0P-"A 

I860 GOTO 1080 

1070 V»9 

10K0 GOS 1)8 1100 

1098 GOTO 680 

1100 J* A* 50 

1110 C*D*0 

1 180 FOR M» 1 TO N 1 

I 130 FOR R* 1 TO S 

1140 IF NOT StM.Rl THEN 1210 


I 150 
I 160 
1 170 
1 IRO 
1190 
1200 
13 10 
1220 
1230 
12 40 
1250 
ie60 
1870 
1280 
1290 
1 300 
1310 
I320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
I 400 
1410 
1 420 
1 430 
1 440 
1450 
1455 
1457 
1 460 
1470 


AMAZE 







J*J M’ M 

A = A MIN R 

C«C MAX M 

0= D MAX R 

IF V* 9 TMFN 1210 

PRINT TAB<2*R~2>"*"! 

NEXT N 

IF V=9 THEN 1240 

PRINT 

NEXT M 

IF G = RI THEN I 400 
C=C- J*3 
D= D- A «-3 
MAT XeZEK 
FOR M« I TO NI 
FOR R« I TO S 

IF NOT S (M.R ) THEN 1330 

XtM- J*2.R- A-»2 ]s I 

NEXT R 

NEXT M 

MAT S*ZER 

Nl »C 

S*D 

RETURN 

PRINT "NO MORE LIFE IN GENERA! 1 ON” J G 
PRINT "••END OF RUN* •" 

GOTO 1430 

PRINT "CELL HAS REACHED LIMITS OF PROGRAM . PROGRAM M’.JsT TERMINATE. " 
PRINT 

PRINT "ANOTHER RUN M l 
INPUT JJII * I ) 

Y«A=S*0 
MAT S-ZER 

IF JS I l * I J*"Y" THEN 340 
END 


1080 

1010 

1020 

1030 

1040 

1050 
1060 
1070 
1080 
1090 
1 1 00 
I 110 
I 120 
1 130 
1 140 
1 150 
1160 
1170 
1 180 
1 1 90 
1200 
1210 
1220 
1230 
12 40 
1250 
1260 
1270 
12B0 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
I 410 
I 420 
1430 
1 440 
1450 
1460 
1470 


DIM W[20#78).VC20.78)»AJ[ 101 

PRINT "DO YOU NEED 1 NSTRUCTI ONS** I 

INPUT All 1 » 1 J 

IF AS*"Y" THEN 1070 

IF AS ="N" THEN 1 130 

PRINT "PLEASE TYPE YES OR NO"J 

GOTO 1020 

PRINT "THIS PROGRAM WILL PRINT OUT FOR YOU A MAZE!" 

PRINT "ALL YOU ARE REQUIRED TO 00 IS INPUT THE DIMENSIONS." 
PRINT "YOU MAY HAVE A MAZE UP TO 20 BY 20 UNITS. BUT NOTHING" 
PRINT "BEYOND THAT _ 

PRINT "EACH MAZE IS DEFFERENT. AND HAS ONLY ONE WAY THROUGH’ 
PRINT "IT." 

MAT W*ZER 
MAT V«ZER 

PRINT "WHAT ARE YOUR DIMENSIONS"! 

INPUT H » V 

IF H < s 20 AND H= I NT ( H) AND V <« 20 AND V*INKV> THEN 1200 
PRINT "SORRY--TRY AGAIN"! 

GOTO 1160 


PRINT 

IF H#1 AND V#l THEN 1240 
PRINT "MEANINGLESS DIMENSIONS. 
GOTO 1160 
PRINT 


TRY AGAIN"! 


C=Z = 0 

X-INT<RND<0> *H*I > 
FOR 1=1 TO H 
IF 1«X THEN 1310 
PRINT "»--"! 

GOTO 1320 
PRINT "t "I 
NEXT I 
PRINT "l" 

C= 1 

WCX, I 1>C 

C*C*I 

R»X 


5* 1 

GOTO 1490 
IF R#H THEN 1 470 
IF S#V THEN I 440 
R*5«» 

GOTO 1480 
R= I 
S = S*| 

GOTO 1480 
R*R ♦ 1 


1480 IF WtR,S)=0 THEN 1400 
1490 IF R-l-0 THEN 1850 
1500 IF WCR-l.SJ THEN 1850 
1510 IF S-l»0 THEN 1660 
1520 IF WtR.S-13#0 THEN 1660 
1530 IF R-H THEN 1570 
1540 IF WtR*l,S3 THEN 1570 
1550 X« I NT (RND( 0 ) *3 * 1 > 

1560 GOTO X OF 2230.2300,23 7C 

1570 IF SfV THEN 1610 

1580 IF Z« I THEN 1640 

1590 Q*l 

1600 GOTO 1620 

1610 IF WCR « S ♦ 1 ) THEN 1640 

1620 X«JnT(RND(0>*3*1 > 

1630 GOTO X OF 2230.2300.2470 

1640 X« INT ( RND( 0) *2 ♦ 1 T 

1650 GOTO X OF 2230.2300 

1660 IF R-H THEN 1770 

1670 IF WCR.l.S) THEN 1770 

1680 IF S#V THEN 1720 

1690 IF Z*| THEN 1750 


cop’t 


arpaze 


|7O0 0*1 

,710 GOTO 1730 

,720 IF WCR , S* 1 3 THEN ,7 50 

,730 X*INTCRND(0)*34 , ) 

,740 GOTO X OF 2230*2370,2470 
,750 X=INT<RND(0>*2* I ) 

,760 GOTO X OF 2230.2370 

,770 IF S#V THEN 1810 

, 780 IF Z*1 THEN ,840 

,790 0*1 

,800 GOTO 1820 

,810 IF WCR,S*|J THEN ,840 

,820 X=INT<RND(0> *2 ♦ | > 

,830 GOTO X OF 2230,2470 
,840 GOTO 2230 
,650 IF S- 1 =0 THEN 2060 
I860 IF WCR.S-13 THEN 2060 
1870 IF R=H THEN 1980 
,880 IF WC R ♦ , , S J THEN 1980 
1890 IF S#V THEN 1930 
1900 IF Z=1 THEN I960 


Board Games 


1910 

0=1 

1920 

GOTO 1940 

1930 

IF W£R. S* 1 3 THEN I960 

1940 

X=INTCRND(0) *3 ♦ 1 ) 

1950 

GOTO X OF 2300,2370,2- 

I960 

X=INT(RND(0) *2+ 1 ) 

1970 

GOTO X OF 2300,2370 

1980 

IF S4V THEN 2020 

1990 

IF Z=l THEN 2050 

2000 

0*1 

2010 

GOTO 2030 

2020 

IF WCR.SM 3 THEN 2050 

2030 

X*INTCRNDC0) *2* I ) 

2040 

GOTO X OF 2300,2470 

2050 

GOTO 2300 

2060 

IF R*H THEN 2160 

2070 

TF W CR ♦ 1 , S 3 THEN 2160 

2080 

IF S#V THEN 2120 

2090 

IF Z=! THEN 2150 

2100 

0=1 

2110 

GOTO 2130 

2 120 

IF WCR.SM 3 THEN 2150 

2130 

X*INTCRNDC0> *2* I > 

2140 

GOTO X OF 2370,2470 

2150 

GOTO 2370 

2 160 

IF S4V THEN 2200 

2170 

IF Z=1 THEN 2220 

2180 

0=1 

2 1 90 

GOTO 2210 

2200 

IF WCR.SM 3 THEN 2220 

2210 

GOTO 2470 

2220 

GOTO 2660 

2230 

WCR- 1,SJ=C 

22 40 

C = CM 

22 50 

VCR-1, S3=2 

2260 

R=R-1 

2270 

IF C = H*VM THEN 2670 

2280 

0 = 0 

2290 

GOTO 1490 

2300 

WCR.S-l 3 =C 

2310 

C = C ♦ I 

2320 

V CR , S- 1 3 = 1 

2330 

S=S- 1 

2340 

IF C=H*V+ 1 THEN 2670 


2350 
2360 
2370 
2380 
2390 
2400 
2410 
2 420 
2430 
2 440 
2450 
2460 
2470 
2 480 
2490 
2S00 
2510 
2520 
2530 
2 540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 


0*0 

GOTO 1490 
WCR+ 1 * S 3*C 
C=C*I 

IF V£R,S3=0 THEN 2420 

V f R,S 3 =3 

GOTO 2430 

VCR.S 3=2 

R=R*I 

IF C=H*V*I THEN 2670 
0 = 0 

GOTO 1 8 50 
IF 0*1 THEN 2570 
W£R, S* 1 J*C 
C*C ♦ I 

IF VCR,S3=0 THEN 2530 
V£R, S 3=3 
GOTO 2540 
V/CR,S 3 = 1 
S = S ♦ I 

IF C=H*V*I THEN 2670 


GOTO 1490 
Z*l 

IF VCR, S 3*0 THEN 2620 
V(R,S3*3 
0 = 0 

GOTO 2660 
V£R, S 3* J 
0 = 0 
R*S= I 
GOTO 1480 
GOTO 1400 
FOR J*l TO V 
PRINT " I" 1 
FOR 1*1 TO H 
IF V£I.J3<2 THEN 2730 
PRINT •* ”7 

GOTO 2740 
PRINT M I"! 

NEXT I 
PRINT 

FOR 1*1 TO H 

IF V£ I #J3=0 THEN 2510 

IF V £ 1 , J 3 *2 THEN 28 10 

PRINT "l 

GOTO 2820 

PRINT 

NEXT I 

PRINT 

PRINT J, ‘DO YOU WANT ANOTHER MAZE”I 
INPUT A S £ 1 . I 3 
IF A$= r * Y" THEN 1130 
IF AS="N" THEN 29 10 

PRIM *’ A YES OR NO WILL DO JUST FINE 

GOTO 2660 

END 


ROVER 


CA 


1 REM »•* PEOPLE'S COMPUTER COMPANY 

2 REM •** ,91V MENALTO AVENUE MENLO PARK. 

3 REM 7-74 

A REM HARED ON AN IDEA BY JEFF SUMHF.RG, RIDGEWOOD. NEW JERSEY 

5 REM WITH HELP FROM JOHN WOHLRTSON 


50 

RF.M 

VARIABLE CONVENTIONS 

52 

REM 

MS 

a > 

INPUT MESSAGES 

54 

RKM 

DS 

*> 

STRING FOR DECOD 1 NO COMMAND 

56 

REM 

ES 

■ > 

STRING FOR OtCODlNG DIFFICULTY OF ORID 

56 

REM 

R 

■ > 

NUMBER OF ROWS IN GRID 

60 

REM 

Rl 

-> 

CURRENT ROW YOU ARE IN 

62 

REM 

R9 

■ > 

PASSING ROW BETWEEN ROUTINES 

64 

REM 

C 

■ > 

NUMHER OF COLUMNS IN GRID 

66 

REM 

Cl 

• > 

CURRENT COLUMN YOU ARE IN 

66 

REM 

C9 

■ > 

PASSING COLUMN BETWEEN ROUTINES 

70 

RF.M 

K 1 

• > 

NUMBER OF CHECKS YOU HAVE LEFT 

72 

REM 

Ml 

e > 

NUMBER OF MAPS YOU HAVE LEFT 

74 

REM 

5 

B > 

NUMERICAL REPRESENTATION OF A GO 

76 

REM 

P 

-V 

NUMERICAL REPHESF.NTAT 1 ON OF A STOP 

77 

REM 

PI 

a > 

NUMBER OF STOPS IN THE GRID 

78 

REM 

Y 

»> 

NUMERICAL KEPKKSLNTAT I ON OF A POSITION ROVER'S BLEND 

60 

HEM 

X 

■ > 

NUMERICAL REPRESENTATION OF WHERE HOVER -STOPPED 

b2 

REM 

Zl 

* > 

TEMPORARY 

64 

REM 

Z9 

«> 

RETURN CODE: 0 CONTINUE GAME! 1 STOP 

100 

REM 

DIMENS 

IONS AND GLOBAL VARIABLES 

,04 

DIM 

MS £72 3. 

OS £63, El (33 

106 

R-9 




1 12 

C = 9 




116 

DIM 

F l 9 , 9 3 



120 

DS = " 

SCLM1E" 




124 
12b 
132 

136 
140 
I 90 
192 
194 
196 
196 
200 
204 
206 
212 
216 
220 
224 
228 
232 
236 
240 
244 
24 6 
900 
904 
906 
912 
916 
920 
924 
926 
932 
936 
940 
94 4 
960 
964 
966 
972 
976 
960 
1000 
1004 
1006 
1012 
1016 
1020 
1024 
1026 
1032 
,036 
1040 
1044 
1046 
1052 
I 100 
I 102 
1104 
I 105 
I 106 
1107 
1106 
1110 
1 I 12 
1116 
1120 
1124 
1126 
I 132 
1136 
I 140 
1 144 
1146 
1152 
I 156 
1200 
1204 
1206 
1212 
1216 
1220 
1224 
1226 
1232 


"THERE ARE"!PI !"STOPS" 

"YOU HAVE";KI .’"CHECKS AND" 1 M I ! "MAPS" 
"GOOD LUCK I" 


ES="NRE" 

P-0 
5-1 
Y-2 
X = 3 

REM =** INSTRUCTIONS? 

PRINT "DO YOU WANT INSTRUCTIONS (YES OR N0>"1 
INPUT MS 

IF MS Cl. ID <> "Y" THEN 200 
GOSUB 2600 

REM *** INITIALIZE GRID. CHECKS. MAPS 
GOSUB 2000 

REM *** FIND A GO STARTING POSITION AND GIVE INFO 
GOSUB 900 

REM *** T Ht GAME PROCEEDS 
GOSUB 1000 

REM *»* ANOTHER GAME? 

PRINT 

PRINT "DO YOU WANT TO TRY ANOTHER GRID (YES OR NO)"! 
INPUT MS 

IF MS£| , 1 J-"Y" THEN 200 
REM *** BYE 
GOTO 2999 

REM **m GO STARTING POSITION AND * STOPS, 0 CHECKS, i 
RI-0 
C1«0 
PRINT 

PRINT "WOULD YOU LIKE A CLUE (YES OR NO)"! 

INPUT MS 

IF MS £1,1 3 <> " Y" THEN 960 

Zl - INTCC/2- I *-2-RND <0 ) > 

IF FC I .Zl 3 * S THEN 944 
Ff I . Z| 3-S 
PI -PI -I 

PRINT "HINT: POSITION I,"1Z1!"IS GO" 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
RETURN 

REM COMMAND DECODER 

REM *** THE FIRST LETTER OF EACH COMMAND IS UNIQUE 
PRINT 

PRINT "*"! 

INPUT MS 
FOR I»l TO 6 

IF MS f 1. I 3»DS£ I , I ) THEN 1040 
NEXT J 

PRINT "J CAN'T FIGURE OUT WHAT YOU MEAN - TELL ME AGAIN’ 1 
GOTO 1006 

GOSUB i OF 1100.1200.1300.1400.1500,1600 

REM *** CHECK RETURN CODE TO SEE IF GAME IS OVER 

IF Z9*0 THEN 1006 

RET1PRN 

REM STEP COMMAND 

GOSUB 2100 

IF ( ABS ( Rl -R9 ) «« |) AND CAHS(CI-CV) «- 
REM CHECK IF THIS IS THE FIRST MOVE 

IF < R9* I ) AND (Cl*0) ThEN 1120 
IF Rl >0 THEN 1112 

PRINT "YOU CAN START ANYWHERE IN ROW 1" 

GOTO 1102 

PRINT "YOU CAN'T STEP FROM" I R J J" 1C I !"T0" ! RV; 

GOTO 1102 
Rl *R9 
Cl *C9 

REM CHECK IF IT IS A STOP 

IF F £R I ,C 1 3 *P THEN 2600 
REM MARK THAT YOU HAVE BEEN THERE 

FfRl .Cl 3 ■ Y 

REM CHECK IF YOU HAVE MADE IT TO THE LAST ROW 

IF Rl-R THEN 2500 
PRINT "GO" 

RETURN 

REM • *• CHECK COMMAND 

REM ... SEE IF THERE ARE ANY CHECKS LEFT 
IF K I >« I THEN 1220 

PRINT "SORRY, BUT YOU'VE ALREADY USED ALL YOUR CHECKS" 


I ) THEN I 120 


!C 9 !" - TRY AGAIN" 


RETURN 
KI-KI-I 
GOSUB 2100 
Zl *F CR9.C9 ] 

IF Z,*P THEN 1246 


COI>’t 


135 


rover 


1236 

PRINT ••GO" 


1240 

return 


1246 

PRINT "STOP" 


1250 

RETURN 


1300 

REM *** LOOK COMMAND 


1304 

Zl =0 


13C6 

FOR lsRl+l TO R 


1312 

IF FI I*C1 ) «> P THEN 

1320 

1316 

Zl = Zl ♦ 1 


1320 

NEXT 1 


1324 

PRINT "THERE ARE";ZW 

"STOPS STRAIGHT AHEAD" 

1328 

Zl *0 


1332 

FOR 1=1 TO C 


1336 

IF F C R I ■♦■1*13 <> P THEN 1344 

1340 

ZI=Z1 -1 


1344 

NEXT l 


1348 

PRINT "THERE ARE"JZ1 ; 

"STOPS IN ROW" J R 1 ♦ 1 

1352 

RETURN 


1400 

REM *** MAP COMMAND 


1404 

RF.M *** SEE IF THERE 

ARE ANY MAPS LEFT 

1406 

IF Ml >* l THEN 1420 


1412 

PRINT "SORRY* HUT YOU 

•VE ALREADY USED ALL YOUR 1 

1416 

RETURN 


1420 

Ml =M 1 - 1 


1424 

REM *** THE MAP IS PRINTED FROM HOV 1 TO HOW H9 

1426 

R9 = R 1 


1432 

GOSUB 2200 


1436 

return 


1500 

REM •»* INFO COMMAND 



1504 

1508 

1512 
1516 
1600 
1604 
1608 
1612 
1616 
2000 
2004 
2008 
2012 
20 16 
2020 
2024 
202 6 
2032 
2036 
2040 
2044 
2046 
2052 
2056 
2060 
2064 
206 6 
2070 
20 72 
20 74 

20 76 
2076 
2060 
2062 
2090 
2092 
2094 
2096 
2 100 
2104 
2106 
2112 

21 16 
2120 
2124 
2126 
2132 
2136 
2200 
2204 
22 12 
2220 
2224 
2226 
2227 
2226 
2232 
2236 
2240 
2244 
224 8 
2252 
2256 
2260 
2264 
2268 
22 72 
22 76 
2280 
22 64 
2286 
2292 
2296 
2300 
2304 
2308 
2312 
2316 
2320 
2324 
2326 
2500 
2504 
2508 
2512 
25 14 
2516 


PRINT "ROVER ROBOT IS AT" i R 1 !" *" JC 1 
PRINT "YOU HAVE";Ki;"ChECKS LEFT" 

PRINT "YOU HAVE" IM I J "MAPS LEFT" 

RETURN 

REM *** END COMMAND 

REM SET END-OF-GAME RETURN CODE 

Z9=| 

PRINT "YOU'VE LEFT ROVER ROBOT STRANDED - HOW SELFISH" 

GOTO 2616 

REM *•» INITIALIZE GRID* » OF CHECKS* • OF MAPS 
PRINT 

PRINT "WHICH GRID DO YOU WANT - NOVICE* REGULAR* OR EXPERT"! 

INPUT MS 
FOR LI =1 TO 3 

IF MS C 1 * H=ES CLl *L1 3 THEN 2036 

NEXT LI 

GOTO 2012 

Z 1 « • 8-L 1/10 

P1=0 

FOR 1»1 TO R 
FOR J*1 TO C 
FC 1 * «J 1 = 1 NT t RND <0 > * Z. I > 

IF FtI*Jl=l THEN 2064 
Pl«Pl *1 
NEXT J 

REM T -i* GUARANTEE ONE STOP IN EACH COLUMN AMONG THE LAST 3 ROVS 

IF <FCR-2*IJ=P> OR <F CR- 1 / 1 3“P> OR (FCR*13*P> THEN 20b2 
REH PLACE A STOP IN THIS COLUMN IN ONE OF THE LAST THREE ROWS 

F tR-2 ♦ 1 NT l 3 * RND <0 > ) * 1 1*P 
PI =P1 *\ 

Kl = int<r+r*rndco> > 

Ml =4 -LI 

Z9=0 

RETURN 

r E M ROV*COLUMN SUBROUTINE 

REM RETURN A VALID POSITION IN R9*C9 

PRINT "ROW *COLUMN“ * 

INPUT R9*C9 
R9 = 1 NT (R9) 

^F (R9<U OR < R9>R ) OR CC9<1> OR <C9>C ) THEN 2132 
RETURN 

PRINT "THAT POSITION IS NOT IN THE GRID 
GOTO 2106 

REM *•* PRINT A MAP 

RE M ... ROW 1 TO ROV R9 WILL BE PRINTED 
PRINT TAB <51 * " » * S ARE ROVER ROBOT'S STEPS' 

PRINT 

PRINT TAB<25)f"C 0 L tl M N S" 

PRINT 

PRINT " ROWS "I 
FOR I -I TO C 
PRINT TAB<6*CI+1 >>Ji; 

NEXT I 
PRINT 
PRINT 

FOR 1*1 TO R9 
print tab<s>; i;tabc9>; 
for J=1 TO C 
Z I =F 1 1 •» J J 

IF z I <> S THEN 2276 
PRINT " GO " l 
GOTO 2304 

IF Zl <> p THEN 2ZBb 
PRINT " STOP "I 
GOTO 2304 

IF Zl <> Y THEN 2300 
PRINT '* * “ f 

GOTO 2304 
PRINT •• xxxx 
NEXT J 
PRINT 
PRINT 
NEXT 1 
PRINT 
PRINT 

£!"«• MADE IT TO THE LAST ROW 

... SET END-OF-OAME RETURN CODE 

Z9* I 


TRY AGAIN" 


PRINT "HOORAY! ROVER ROBOT MADE IT TO ROW'JR 

-final map <yes or NOVI 


136 
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TEASER 


i# 

ii 

36 

*£ 

5* 

S« 

?« 

?5 

AO 

!•» 
ue 
Ua 
13» 
1*3 
1W 
l*» 
170 
I2J 
|9® 
?ti 
21* 
?>* 
?3® 
2*0 
2S« 
?&* 
270 
2*9 
2*3 
JO* 
310 
32» 
330 
3*0 
35 A 
3e*0 
37* 
3»". 3 
3*0 
40* 
*10 
*2® 
*J«) 
4*0 
4b0 
4f»J 

*70 

*3* 

*90 

500 

S10 

s?o 

530 

5*0 

S50 

ShO 

570 

5*0 

•WO 

500 

510 

*»20 

510 

h*0 

5-jO 

660 

570 

nM 0 

690 
700 
710 
720 
7 30 

7*0 

750 

750 

77 J 
7-HO 
7*0 
H*J 0 
HiO 

fl2‘> 

H50 

M-0 

*WU 

H*»0 

h?0 

8*0 

<h.‘0 

•J00 

oio 

•>20 
5 30 

V* 0 
4.,.1 
s50 
* 71 

9'lt) 

9 <0 
icon 
MIC 
li»2fj 

10 30 
! 0*0 
l >50 
I 050 
1070 
l OHO 
1 0*0 
lion 

Uio 
i 12c 
1 130 
ll*o 


or* amsi 

owlMl " 00 YOU * an r lNSrHliriln 

iv>jr a\ * r * i,r r iONs**i 

|f A S="YL V* >H£N 

If Thin 2^0 

. 5 INI "»LEASF GIVE «E VPQ 
6070 30 
P^INT 


0° MO 4MSVEM." 


ppm h tf you l pce «p AT , rE> . 

,^(NI -THf. «wj*cr o* Tims EClfT; [* CN YOU,p e 

P^lNf "1 »S APr'tAW ffj A. . 0 T 0 5<>L V£ 


A 0 TO A 


I* fOU MUST CHANGE I'S" 


. mi «*»* iN'ICt ^sJ^ois txrt I»| VE * N 3 F * B 3 S "“'«I« 'such IH... 
«!*! ••« pcffcm to: '£ “ u -"' -«* Post ? ion noulo- 

AW£ TMfc PULES A NO CONDITIONS;" 

P^IMT "YOU A * K NOT &i Iriif r\ r. ~ 

*»9[nT *»TO rt»Sj*» 0 Tv5 CHANrtK 

POfMT 

f^INT -*MfN A l is M aov 0 . 

PRINT ‘ * 

PR r UT 

GR|N? 

print 
p»tmt 
print 
p* i n r 

epjNT "WHAT HAPPENS on TMC "kOAPO." 

^PTMT « AFTEO FACH HOVE TMt Ntw HOAPO WILL 



’ ,f TW ' "* WMC X «„ r,M* s «, 


Ut PPINTEO OUT." 
A RANDOM NUMHiO TO START THE GafF OFF"* 


print 

PRInT "PLEASE OlVt 
IN»UT X 
C*IM A(3*3I 
FOP M=1 TO 3 
pqR N— 1 TO 3 

LET *l".Ml-[MTCPMl>«Xl 4.S) 

NEXT N 

Ntxr M 

FD* 0=1 10 5 
P31NT 
w-xr q 

PwIMT 

GOTO 980 
PjpiT 

"AT POINT AT 
P MNf "HAKE YO«JP MOVE"* 
input «»m 

PrtlNT 

[F *»1 AMO M-«2 AMO H«.) ;>P M»1 AMO N a? AMJ N«3 THEN 5.10 
IF SI*>.NJ=0 f>«tM AOl) 

LET A C m tN J =0 
IF ANO N=1 Then 650 

IF w= 1 AnO M=2 THEN 690 

IF *=1 AVO m =3 ThF.n 7 20 

IF u=2 -NO Ms 1 THEM 760 

IF ANO Them ? 90 

IF M=? ANO N=1 THEM U*0 

IF *= 3 AND N=l Th£N H70 

IF P=3 A‘10 n=2 THEN 910 

IF Ms i a \ 0 n-3 Then o*o 

uoro *0 

P^IUT "DON'T CHEAT! YOU MUST CHANGE l'S TO O'S." 

PP InT "NOw GIVE me ANOThEW POSIT ION." 
r-OTO 450 

priNT "PLEASE GIVE ME PPOPEP OAtA »7EFEPR1MG TO OOARO." 

GOTO -*80 

LET AC ] *21= MOT At 1.2) 

LET A t 2 • 1 J= NOT A C 2 • l ) 

LET A£2«?J= NOT A|J?«21 
GOTO *10 

LET a 7 1*11= NOT A C 1 • l 1 
LET All • J 1 = NOT A ( l • 3 J 
GOTO *10 

LET All 1 2 J — NOT A C 1 * ? J 
LET A[2«3I= NOT A ( ? * 3 I 
LET At 2.21= MOT A(?*2l 
GOTO *10 

LCT Atl.lJ= NOT A l I *1 J 
l K T A ( j . I 1 = nOT A fl . I » 

goto *10 

1 FT A t l ♦ 2 1 = MOT At 1 ♦ 2 J 
LKT 4(2.11= MOT AC2.1 I 
LET A ( 2 • .1 1 - NOT * l 2 • 3 J 
LET Al 3 *2 J = MOT AC .3 • 2 J 
GOTO *10 

LET All .11= MOT All *3 I 
LET All* 11= NOT At 1.3 1 
GO TO * I 0 , 

LET At?.lJ- MOT A(2.1J 
LK T A t 1 • 2 1 = MOT A( 1.2 
LET A f ? • 2 J 3 NOT 4(2.21 
GOTO *10 

LF T A( 1* I J- NO f At J* I 1 
i. F r A l 1 • J I « Nu f A l 1 • 3 r 
GOTO *10 

I F f 4(2. *J- MOT At 2* II 
lit Jtj./i-- Nor *tw 
LET aC2*?J 3 MOT A (2. 2 I 

«w *« *« 

1 tY\l2*U ANO All* I I Al3 

•>TO I960 riiLA (IONS - YOU SOLVED Tut * KEA T P»i//L^ *•>»>«» 

„ >f , jT .. fl a»**CONT*HATULAnON5 

P^IUT 

i 5 I F a l -N T A l 

i;° p , 0 t *,,... — not «i.« ^ ,,or * n ”' iW 
?? r UrM ? .il .NO «or .».»» •*» Mor ™ 

5070 *20 ^ NO w-.Y YOU'LL *t* MOMlI••* :>,, 

P) | Nf T 

OR I N T 

-4 at PRINT At 
STOP 

evo 








.3) asm »t?-ll Tnff to<m 
»1 xv) Atiol W 1 10,in 








WO I 

A12. 

i ) 

AND 

mOT 

in* 

3) 

then 


HOT ■> 1 2 . ? I Then lc.40 



Bus. & Soc. Sci. Simulations 


KING 


in 

12 

IS 

20 

30 

40 

5® 

60 

70 

B0 

9l| 
100 
I 10 
120 
130 
1 40 

1 50 
16C 
170 
1 80 
|90 
200 
210 
220 
230 

2 40 
250 
2 60 
270 
280 
290 
300 
31C 
320 
330 
340 
350 
360 
370 
380 
390 


• TI ES 


REM-KING 

REM-ORIGINAL KING BY 
REM- THIS VERSION BY 
DIM AHSl 
NS*N4=8 

PRINT •'INSTRUCT IONS" I 
INPUT AS 

IF ASlt#|3«**N M THEN 390 

PRINT "CONGRATULATIONS! YOUVE BEEN MADE PREMIER OF SEl 
PRINT "A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. 

PRINT "TO DECIDE THE COUNTRY *S FATE." 

PRINT "THE MONEY SYSTEM IS RALLODS- EACH^ COUNTRYMEN MUST HAVE AT 
PRINT "LEAST 100 RALLODS/YEAR TO SURVIVE." 

PRINT "YOUR COUNTRY’S INCOME COMES FROM FARM J^^sqlO" 

PRINT "AND TAXES. HALF YOUR LAND IS FARM r 

PRINT "TO FOREIGN INDUSTRY WHO IMPORT AND SUPPORT El 

PRINT "CROPS COST BETWEEN IP AnD IS KALLODS r^lODs’pE^SC^mILE" 1 * 
PRINT "AND THEY BRING IN BETWEEN AS AND 65 RALLODS PER SO 

PRINT "INDUSTRY WILL BUY LANO FROM 9S T0 !* 5 . o^lMLE OF^LAND." 

PRINT "AND WILL PAY TAXES OF 44 RALLODS SO. • I EAST ? S() .« 

PRINT "INDUSTRY BRINGS TOURIST TRADE- IT MUS • ^ Fn0m » 

PRINT "MILES BEFORE YOU GET ANY 10UNIST ™A0E» . I^USTKY 0*N:> " 

PRINT "YOUR TOURIST TRADE WILL INCREASE UNTIL 1 DU 

PRINT -MNDUSTRY ALSO BRINGS POLLUT 1 ON. I S peITuniI" 

PRINT "POLLUTION MAY BE COMBATTED BY SPENDING • ?^ L ?^ DE AND" 

PRINT "OF POLLUTION. POLLUTION WILL DECREASE TOURI 
PRINT "CROP YIELD-" 

PRINT "YOU CAN INCREASE YOUR CROP YIELD THROUGH EDUCATION. THE" 
PrInJ " VAL UE^OF 1 CROPS IS DEPENDENI ON THE 

PRINT "EDUCATION IN THE PAST 3 YEARS. 10 RALLODS PER PERSON IS 
PRINT "THE MAXIMUM USEFUL AMOUNT TO SPEND ON EDUCATION. 

PRINT "YOUR GOAL: TO COMPLETE YOUR"lN4i" YEAH TERM." 

PRINT "GOOD LUCK!" 

LET M=I NT ( 70030. ♦CRND(0) * 10001 - (R»\DC 0) • 1C00> ) 

410 LET P=INTCS0O-(RND<O*I0)-<RNDC0)*10)> 

420 LET L=20B0 

43B W=X2=EP=X 1 - E 1 a S9=S8=M 5=S 1=0 

440 LET D 1 = INTC P/3 1 

4S0 LET L1 = INTC< RND( 01 • 5) ♦ 1 0> 

460 LET L0= I NT(RND<0> • |0*95> 

470 G0SU3 222® 

480 PRINT "YOU HAVE "IM?" RALLODS" 

490 PRINT P COUNTRYMEN,"; 

S00 IF W*0 THEN S20 

510 PRINT wj" FOREIGN WORKERS,"; 

S20 PRINT " AND" ) L J " SO. MILES OF LAND." 

530 PRINT "THIS YEAR INDUSTRY WILL BUY LAND FOR")L0)" RALLODS/SO. MILE 
540 PRINT "LANO CURRENTLY COSTS"JLl)" RALLODS/SG. MILE TO PLANT" 

550 IF S I =0 THEN 570 

560 PRINT "POLLUTION LEVEL IS")S1J" UNITS." 

570 GOSUB 2220 

580 PRINT "HOW MANY SO. MILES TO SELL TO INDUSTRY") 

590 INPUT L2 

600 IF L2<P THEN 580 

610 IF L2«<L-I00®> THEN 680 

620 PRINT " THINK AGAIN, YOU’VE ONLY")L- 1 000) " SO. MILES OF FARM LANO" 
630 IF XI «» 0 1HEN 580 

640 PRINT "C FORE I GN INOUSTRY IS NOT INTERESTED IN FOREST LAND BECAUSE" 
650 PRINT "OF 1 HE GREATER DEVELOPMENT COST)" 

LET X I * I 
GOTO 580 

LET M* I NT < M*L2 *L6 ) 

LET L* I NKL-L2 ) 

LET X9=INT< 44,<2C00-L) ) 

LET M2*0 
LET M3-e 
LET M4=0 

PRINT "HOW MANY RALLODS TO DISTRIBUTE 10") 

PRINT " YOUR COUNTRYMEN") 

INPUT Ml 

IF Ml*0 THEN 740 
IP HI «* M THEN 810 
GOSUB 2250 
GOTO 740 
LET M* 1 NTCH-M 1 1 
IF M*0 THEN 1170 

PRINT "HOW MANY SO. MILES TO PLANT") 

INPUT L3 

|F L3«fl THEN 830 
IP L3 «« P*2 THEN B9« 

PRINT "EACH COUNTRYMAN CAN ONLY PLANT 2 SO. MILES" 

GOTO 950 

IF L3 <= L- 1 0®0 THEN 920 

PRINT "ONLY GOT"»L-|fleei" SO. MILES OF FARM LAND." 

GOTO 95« 

LET M4* JNTIL3*L I ) 

IF M 4 <* M THEN 990 
GOSUB 22 50 

PRINT "YOU CAN AFFORD" 1 1 NTtM/L I > I 
PRINT " AND HAVE LABOR F0R")P*2l 
PRINT " AND HAVE" »L- 10001" SO. MILES" 

GOTO 830 
LET M* I NT<M“M4) 

|F M*0 THEN 1170 

PRINT "HOW MUCH TO SPEND FOR EDUCATION"! 

INPUT K2 

IF K2<0 THEN 1010 
| F M2 «« M THEN 1070 
GOSUB 2250 
GOTO 1010 
LET M*INT<M-M2) 

IF M»0 THEN 1170 
IF L«2000 THEN 1170 M w W 

PRINT "HOW MUCH 70 SPEND TO COMBAT POLLUTION") 

INPUT M3 

IF M3«0 THEN 1100 


660 
670 
680 
690 
700 
710 
72® 
730 
7 40 
7 50 
760 
770 
700 
790 
800 
810 
820 
838 
840 
85® 
860 
870 
880 
090 
900 
910 
920 
930 
940 
958 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
I 110 
I 120 


138 


* * » » 


cop’t 


I !3« 
| | 40 

1150 
I I 60 
1170 
1100 
I 190 
1200 
1210 
|{?20 
1230 
12 40 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 

1340 
1350 
1360 
1370 
1380 
1390 
1400 
1 410 
I 420 
1 430 
1440 
1450 
1460 
1 470 
1480 
1490 
1500 
1510 
1520 
I 530 
1540 
1550 
1560 
1570 
1 580 
1590 
1600 
1610 
1620 
1630 
1640 
16 50 
1660 
1670 
1680 
1690 
1700 

i/i0 

1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1060 
1670 
1880 
1890 
1900 
1910 
1920 
1930 
19 40 
1950 
1960 
1970 
I960 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 10 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
8250 
2260 
2270 
2280 


I 160 


IF M3 « = M THEN 
GOSUB 2250 
GOTO 1 100 
LET M = 1 NT < M-M3 ) 

GOSUB 2220 
LET DO = 0 
LET E2=M2/P 
LET D2=INT(P-M1/| 00) 
IF 02 « = 0 THEN | a 40 
LET 00=02 
PRINT D2l 


PRINT 02 I COUNTRYMEN DIED OF cn D 

LET 03= INTC C S 1 / 1 00000 . ) I ^ STARVATION" 

IF D3 « = 0 THEN | 280 • 1 ♦ . 4*RND( 0 ) ) , 


1280 

PRINT 03;" COUNTRYMEN m m 

9403 ° IED FR0M EXCESS 


I 400 


POLLUTI ON.- 


KALLOOS. F9S FUNERAL EXPENSES" 


LET D0=D0 
IF 00 <= 0 THEN 
LET F=D0*9 

PRINT "YOU WERE FORCED TO SPENn*.,, 

LET M= INTCM-F) SPEND ;F; 

IF M <= 0 THEN 1 400 
PRINT "INSUFFICI ENT RESOU»rc-Q 

LET T0 = -INT(<M-L0M>/L0? CES F0RCED Sa LE OF LAND- 

LET L=L-T0 

IF L >= 1000 THEN 1390 
PRINT "NOT ENOUGH LAND TO SELL- 
GOTO 2270 tLL 

LET M=M*T0*L0 
IF 00 >200 THEN 2300 
LET P=P-D0 
LET D 1 = 0 1 - D0 
IF 01 <0 THEN 2410 
IF 02 <= 2 THEN 1460 
IF M> 500 THEN 2S20 
IF L2=0 THEN 1520 
LET T0=INTCL2 «-L2 ♦RND<2) *2> 

IF W=0 THEN 1500 
LET T0 = I NT < T0 + . 1 * W) 

[eT N I=I!{' 0 W0RKERS CAME T0 THE ISLAND AND" 

LET T0=INTC(f500-P)/i0-D3/3-D2/5)4.7S»(|4RNDC0))) 

PRINT ABSC T0) 1" COUNTRYMEN "j 0>>> 

IF T0<0 THEN 1570 
PRINT "CAME TO"; 

GOTO 1580 
PRINT "LEFT"! 

PRINT " THE ISLAND." 

LET P=P*T0 
IF P<W THEN 2480 
LET T0=0 

IF L=2000 THEN 1680 
LET T0=INT( CS I / 100000. ) *L3 ) 

IF T0 <= L3 THEN 1660 
LET T0=L3 
IF T0 = 0 THEN 1680 

PRINT "OF" ! L3 ! " SO. MILES PLANTED* "! 

PRINT "YOU HARVESTED" ;L3-T0;" SO. MILES OF CROPS." 

IF T0=0 THEN 1760 
IF X2 >= 2 THEN 1760 
PRINT " ( DUE TO "I 

IF X2 = 0 THEN 1740 
PRINT "INCREASED 
PRINT "POLLUTION LEVEL)" 

LET X2=X2 ♦ I 

LET T1=INTC(39*RND(0) *20) * ( l*.25*(E0*El )/20)> 

PRINT " MAKING”! I NT( T I ♦ ( L3 - T0 > )i" RALLOOS." 

LET M=M+INT(Tl *CL3-T0) ) 

LET E0= E 1 

IF E2 <= 10 THEN 1820 
LET E2= 10 
LET El =E2 
LET T0=2O00-L 
IF T0<2 THEN 2100 
IF T0 <= 26 THEN 1870 
LET 70=26 

LET T0= INTC T0* 500*< • 52 S*RND< 0) ) ) 

LET T1=S 1/1 00000. 

IF T I <= 1 THEN 1910 
LET T I = 1 

PkInT '"YOU^MADE" IINT<T0-Tl>i" RALLODS FROM TOURIST TRADE" 
LET M=M+INT(T0-T1 ) 

IF I NT ( T0- T 1 ) <= M 5 THEN 2080 

IF SI <= S9 THEN 2080 

PRINT " DECREASE BECAUSE "; 

i^'3Hri3L^?ON a Sis'D 0 w?^*riu 6 E 7 ?o 2 SI?ER POLLUTION" 
“ISt*”?.. POLLUTION IS KILLING CAHE BIRD POPULATION" 
PRINT S "M?NERAL BATHS ARE BEING RUINED BT WATER POLLUTION" 

PrInT 8 "SSpLEASANT SMOG is DISCOURSING SUN BATHERS" 

GOTO 2080 nAu „. r chaHHY DUE TO SMOG GRIT" 

PRINT "HOTELS ARE LOOKING SHABBY uut. 

LET M5=INTCT0-T1 ) 

LET S9*S 1 

LET S2=C2000-L>i2-M3/-<< rallods FRO h TAXES ON INDUSTRY" 
PRINT "YOU REC I EVED ; X9 ; KALl-uuo 
IF S2 >= 0 THEN 2 I 70 
LET S I = I NT( S 1 *S2 /2 ) 

IF SI >= S0 THEN 2160 

LET S I =S0 

GOTO 2190 

LET S 1 = I NT ( S 1 ♦S2 > 

LET Sfl*INT(S0*S2/l0> 

LET N5=N5-1 

IF N5»0 THEN 450 

GOTO 2570 

PRINT 

PRINT 

RETURN , f raLLODS left I” 

PRINT "ONLY GOT-IMI BALLOU 

RETURN THROWN OUT OF OFFICE AND YOU ARE NOW 

PRINT "YOU HAVE B^EN THROWN 
PRINT "RESIDING IN PRISON 




2290 

STOP 

2300 

PRINT 

2310 

PRINT ' 

2320 

PRINT 1 

2330 

LET T0; 

2340 

GOTO Tl 

2350 

PRINT 1 

2360 

STOP 

2.370 

PRINT • 

2380 

STOP 

2390 

PRINT • 

2 400 

STOP 

2410 

PRINT * 

2420 

PRINT • 

2 430 

PRINT ‘ 

2440 

GOTO 2 

2 450 

IF RND< 

2460 

PRINT • 

2470 

STOP 

2 480 

PRINT * 

2 490 

PRINT * 

2 500 

PRINT • 

2510 

GOTO 2- 

2 520 

PRINT • 

2530 

PRINT * 

2540 

PRINT * 

2550 

PRINT ’ 

2560 

STOP 

2570 

PRINT 

2580 

PRINT * 

2590 

PRINT ’ 

2600 

PRINT * 

2610 

PRINT * 

2 620 

PRINT * 

2630 

INPUT ( 

2640 

LET NS* 

2650 

IF 0 = 0 

2660 

STOP 

2670 

END 


30;" COUNTRYMEN DIED IN ONE YEAR! fill" 

•DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 
•BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU" 


•ALSO HAD YOUR LEFT EYE GOUGED OUT." 

•HAVE ALSO GAINED A VERY BAD REPUTATION." 

•HAVE ALSO BEEN DECLARED NATIONAL FINK." 

•OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU" 
•WERE ELECTED TO OFFICE. THE PEOPLE (REMAINING)" 

•HA1E YOUR GUTS." 

450 

0> <= .5 THEN 2270 
•YOU HAVE BEEN ASSASI NATED." 

•THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NU-13ER" 
•OF COUNTRYMEN. AS A MAJORITY THEY HAVE REVOLTED AND" 
•TAKEN OVER THE COUNTRY." 

450 

•MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID NOT" 
•SPEND. AS A RESULT SOME OF YOUR COUNTRYMEN DIED OF" 
•STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE BEEN" 
•FORCED TO EITHER RESIGN OR COMMIT SUICIDE." 


■CONGRATULATIONS »" 

•YOU HAVE SUCCESSFULLY COMPLETED Y0UR";N4;" YEAR TERM" 

•OF OFFICE. YOU HAVE DONE SUCH A GOOD JOB THAT YOU MIGHT" 
•WANT TO RUN FOR ELECTION AGAIN THIS TIME." 

■TYPE 0 IF YOU 00" 


139 


HAMUUABI 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


100 
110 
120 
130 
100 
150 
160 
170 
180 
190 
200 
210 
220 
230 
300 
310 
320 
330 
30 0 
350 
400 
410 
420 
030 
040 
450 . 

460 
470 
480 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1100 
11 10 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1300 
1310 
1320 
1330 
1340 
1350 
1360 

13 70 
1380 
1390 
1400 

14 10 
1500 
1510 
1520 
1530 
1540 
1550 
1560 

15 70 
1580 
1600 
1610 
1700 
1710 
1720 
1730 
1 740 
1 750 
I 760 
1770 
1760 
1790 
1800 
1610 
1820 
1900 
1910 
1920 
1930 
1935 
1940 
1950 
I960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 

20 70 
2080 
2100 

21 10 
9000 
9005 
9010 
9020 
9030 
9040 
9050 


RF.M •• HAMHRABl - GOVERN THE KINGDOM OF SUMERIA 
REM *» MODIFIED BY PEOPLE’S COMPUTER COMPANY 
VARIABLES USED IN THE PROGRAM 


A I ■ » POPULATION 
A2 -> IMMIGRANTS LAST YEAR 
A3 «> DEATHS LAST YEAR 
B I => BUSHELS IN STOREHOUSES 
B2 -> BUSHELS DESTROYED LAST YEAR BY RATS 
B3 »» HARVEST PER ACRE LAST YEAR 
B4 -> TOTAL HARVEST LAST YEA<1 
Cl «> ACRES OVNED BY CITY 
C2 ■> VALUE OF AN ACRE 
l «> TEMPORARY VARIABLE 
d • » •• •• 

INITIALIZATION 


PRINT "HAMHRABl - " J 

PRINT “WHERE YOU GOVERN THE ANCIENT KINGDOM OF SUMERIA.” 
PRINT "THE OBJECT IS TO FIGURE OUT hOV THE GAME V0RKSI1” 
PRINT " < 1 F YOU WANT TO QUIT* SELL ALL .YOUR LAND.)" 

PRINT 
Al-100 
A2-5 
A3-0 
B 1 *2800 
B2-200 
B3-3 
B4-3000 
Cl* 1000 
d-1 

REM *• REPORT TO HAMVRAB1 
PRINT 
PRINT 
PRINT 

PRINT A3 )" PEOPLE STARVED AND“)A2 J “PEOPLE CAME TO THE CITY.’ 
IF J>0 THEN 1 100 
A 1 * A I - I NT < A 1 /2 ) 

PRINT “THE PLAGUE KILLED HALF THE PEOPLE. “ 

PRINT “THE POPULATION IS NOW“)Al 
PRINT 

PRINT “VE HARVESTED" )B4 )"BUShEL5 AT" ) B3 ) “BUSHELS PER ACRE. 
PRINT “RATS DESTROYED" )B2)"BUSHELS LEAV 1 NG" ; B 1 ) 

PRINT “BUSHELS IN THE STOREHOUSES." 

PRINT 

PRINT "THE CITY OWNS” iC I )“ACRES OF LAND." 

C2-1 7MNT(6-RND<0>> 

PRINT “LAND IS WORTH” )C2 J "BUSHELS PER ACRE." 


" HAMMRAB I * 1 BEG TO REPORT THAT LAST YEAR" 


PRINT 

PRINT 

PRINT 

REM *- 

PRINT 

PRINT 

INPUT 


•HAMHRABl . 
BUY LAND? 


•BUY HOW MANY ACRES") 


I — I NT (ABS < I ) ) 

IF 1-0 THEN 1500 
J-1-C2 

IF J <» B 1 THEN 1400 

GOSUB 9000 

KOTO 1310 

Bl -Bl -J 

CI'CUI 

REM *- SELL LAND? 

PRINT "SELL HOW MANY ACRES") 

INPUT I 
1 * INT ( ArfS ( 1 ) ) 

IF 1-0 THEN 1700 
IF l <C 1 ThEN 1600 
IF I -Cl THEN 9999 
GOSUB 9000 
GOTO 1510 
C I -C I - I 
Bl -Bl tCP-i 

REM DISTRIBUTE FOOD 

PRINT "HOW MANY BUSHELS SHALL WE DISTRIBUTE AS 
INPUT I FOOD") 

1-1 NT ( ABS ( 1 ) ) 

IF I <« Bl THEN 1770 
GOSUB 9000 
GOTO 1710 
Bl -Bl -I 

A3-A1 -ZNT< 1/20) 

A2-0 

IF A3 >» 0 THEN 1900 

A2--A3/2 

A3-0 

REM — PLANT LAND 

PRINT "HOW MANY ACRES SHALL WE PLANT") 

INPUT 1 
I - INT (ABS < I ) ) 

IF I»CI THEN 1960 
J- INT l 1/2) 

IF J <» Bl THEN I960 
GOSUB 9000 
GOTO 1910 

IF 1 > I 0 -A l THEN I960 
Bl-Bl-J 

REM HARVEST* RATS* AND CHANGES IN POPULATION 

83* I NT ( 5 -RND C 0 ) ) ♦ 1 

B4-B3-1 

H2 * 1 NT ( < B 1 *B4 >*.07*RND<0) ) 

B I -B I -B2*84 

J- 1 NT ( 1 O-RND (0 ) ) 

A2-INT (A2*<5-93)*BI /600*l > 

IF A2 <■ 50 THEN 2100 
A2-50 

Al -A I +A2-A3 
GOTO 1010 

REM *• ERROR SUBROUTINE 
PRINT 

PRINT "HAMURABI. THINK AGAIN - YOU ONLY HAVE" 
PRINT A 1 )" PEOPLE*” IC I ) "ACRES * AND'*) 

PRINT B1!"BUSHELS IN STOREHOUSES.” 

PRINT 

RETURN 


CIVIL 2 

10 REM - CIVIL WAR SIMULATION 

15 REM-ORIGINAL PROGRAM BY L- CRAM* L • GOODIE* D« HIBBARD 

20 REM - MODIFIED BY GERRY PAUL-- 7/ 1 8/ 73 

30 REM - REVISED BY ROGER HESS-- 1 0/24/ 73 

35 RFM- OF TIES* MINNEAPOLIS 

40 DIM CJtl6J#XtI5)*B5C53 

50 DIM S C 4 1 

60 REM UNION INFO ON LIKELY CONFEDERATE STRATEGY 
70 MAT READ S 
80 DATA 25*25*25*25 
90 PRINT 


YES" THEN 160 
NO" THEN 370 
•YES OR NO -- ’’ 


HO 


100 

PRINT ” 

1 10 

INPUT X 

120 

IF X S>=’ 

130 

IF X* = * 

1 40 

PRINT * 

150 

GOTO 1 1 

160 

PRINT 1 

170 

PRINT ’ 

180 

PRINT * 

190 

PRINT • 

200 

PRINT ’ 

210 

PRINT ’ 

220 

PRINT * 

230 

PRINT 

2 40 

PRINT 1 

2 50 

PRINT 

260 

PRINT 

270 

PRINT 

280 

PRINT 

290 

PRINT 

300 

PRINT 

310 

PRINT 

320 

PRINT 

330 

PRINT 

3 40 

PRINT 

350 

PRINT 

360 

PRINT 

370 

PRINT 

380 

PRINT 

390 

INPUT 

400 

IF BS = 

410 

IF BS 

420 

PRINT 

430 

LET D= 

440 

IF BS 

450 

LET D* 

460 

PRINT 

470 

PRINT 

480 

PRINT 

490 

PRINT 

500 

PRINT 

510 

PRINT 

520 

PRINT 

530 

PRINT 

540 

PRINT 


•THIS IS A CIVIL WAR SIMULATION.” 

•TO PLAY* TYPE A RESPONSE WHEN THE COMPUTER ASKS.” 

•REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAI YOUR” 
•RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE” 
•RASED ON THE ACTUAL OCCURRENCE. MOST BATTLES TEND TO RESULT 
•AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU! 1” 

•THE OBJECT OF THE GAME IS TO WIN AS MANY BATTLES AS POSSIBLE 

’’YOUR CHOICES FOR DEFENSIVE STRATEGY ARE «” 

" <|) ARTILLERY ATTACK” 

" ( 2 ) FORTIFICATION AGAINST FRONTAL ATTACK” 

" ( 3 > FORI IF1CATI0N AGAINST FLANKING MANEUVERS” 

" < 4) FALLING BACK" 

” YOUR CHOICES FOR OFFENSIVE STRATEGY ARE I” 

” (1) ARTILLERY AT1ACK" 

" (2) FRONTAL ATTACK” 

” (3) FLANKING MANEUVERS” 

" < 4) ENCIRCLEMENT" 

"YOU MAY SURRENDER BY TYPING A ’5* FOR YOUR STRATEGY.” 
LIN(3)*"ARE THERE TWO GENERALS PRESENT ”1 
”< ANSWER YES OR NO)"J 


•YES” THEN 430 

<> "NO” THEN 380 

•YOU ARE THE CONFEDERACY. 

I 

<> "YES" THEN 460 


GOOD LUCK I" 


"SELECT A BATTLE BY TYPING A NUMBER FROM 1 TO 1 4 ON” 
"REQUEST. TYPE ANY OTHER NUMBER TO END THE SIMULATION- 
"BUT *0* BRINGS BACK EXACT PREVIOUS BATTLE SITUATION" 
"ALLOWING YOU TO REPLAY IT" 


"NOTE! A NEGATIVE FOODS ENTRY CAUSES THE PROGRAM TO 


"AFTER REQUESTING A BATTLE. DO YOU WISH "I 


cop’t 


civil 


HAUL!. DESCRIPTIONS 
<AN:.w f ;u Yr, oi< " 


PRINT 
PRINT 
INPUT X* 

IF XS-"YES" THKN 6VM 
IF XI ** *'NO" THEN 560 


NO)’* j 


550 
560 
570 
5B« 

590 
600 
610 
680 

6.30 PRINT “WHICH BATTLE DO vn.. u.„ 

6 40 INPUT A °° Y0U WI »M TO 

650 IF A«0 AND HI 
660 IF A <» 0 OR 


I 1 


LU U-W»W|cOi« M3 . M4 

PRINT •••• C6 * F - w 0-Y-Y»-U-Ug. 0 


670 

6H0 

690 

TOO 

710 

780 

730 

7 40 
750 
760 
770 
700 
790 
800 
BIO 
880 
830 

8 40 
850 
860 
870 
880 
890 
900 
910 
920 
930 

9 40 
9 50 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
I 100 
1110 


A THF.N | f /)M 

GOTO A OF ‘"0'7«0.780!v40,74b‘ , 7 „„ 
RESTORE 3440 ”* 7A0 ' lf W, 

GOTO 950 
RESTORE 3450 
GOTO 950 
RESTORE 3460 
GOTO 950 
RESTORE 3470 
GOTO 950 
RESTORE 3480 
GOTO 950 
RESTORE 3490 
GOTO 950 
RESTORE 3500 
GOTO 950 
RESTORE 3510 
GOTO 950 
RESTORE 3520 
GOTO 950 
RESTORE 3530 
GOTO 950 
RESTORE 3540 
GOTO 950 
RESTORE 3550 
GOTO 950 
RESTORE 3560 
GOTO 950 
RESTORE 3570 
READ C*,Ml,M2,Cl.C2,M 
LET U-0 

REM INFLATION CALC 
LET It=!0*<L-W>42 
LET I2» I04<W-L)*2 
REM - MONEY AVAILABLE 


s IMULA7p_‘*j 


KB0*«20,B40,« 60 ,!j,j 0 


*900,920,940 


LET DCI3=I00»IM((MI*(|00-II) /20 00 ) *< 

IF B i <► ••YES* 1 THEN 1050 

REM ,00 -*2>'2000>*M*<R2-G2)/<R2<*|>>* 

LET M5«INTCMI *( 1 ♦CPI-TI >/(M3*| )) ) 

LET M6»INTCM2*C 1 ♦ < P2- T2 > / < M 4* I > I > 

LET FI*S*Ml/6 
PRINT •••• 

PRINT "THIS IS THE BATTLE OF "!CS 
IF XS="NO" THEN 1 1 50 

1120 GOTO A OF 3580,3620,3650,3690,3720,3750,3780,3800,3830, 
1130 GOTO A-ll OF 3920,3950,3980 
PRINT CS" INSTANT REPLAY" 

PRINT 

PRINT « ", "CONFEDERACY"," UNION" 

PRINT "MEN"," "MS," "M6 
PRINT "MONEY", "f"lDf 1 J,"I"lDt23 
PRINT "INFLATION"," " J I 1 ♦ 1 5 1 " V , " "ij 2 j"X" 

REM - ONLY IN PRINTOUT IS CONFEU INFLATION « IM15Z 
REM - IF TWO GENERALS, INPUT CONFED. FIRST 
FOR I=| TO D 
IF B I «> "YES" THEN 1260 
IF 1=2 THEN 1260 

PRINT "CONFEDERATE GENERAL "1 

PRINT “HOW MUCH DO YOU WISH TO SPEND FOR" 

PRINT " - FOOD "I 

INPUT F 

IF F >= 0 THEN 1360 
IF R I *> 0 THEN 1330 
PRINT "NO PREVIOUS ENTRIES" 

GOTO 1270 

PRINT "ASSUME YOU WANT TO KEEP SAME ALLOCATONS" 

PRINT 


1 I 40 
I 1 50 
I 160 
I 170 
1 180 
I 190 
1200 
1210 
1220 
1230 

12 40 
1250 
1260 
1270 
1280 
1290 
1300 

13 10 
1320 
1330 
13 40 
13 50 
1360 
1370 
1380 
1390 

I 400 
1410 
I 420 
I 430 
1440 
I 4 50 
1 460 
I 470 
I 480 
1 490 
1500 
1510 
I 520 
1530 

15 40 

1550 
I 560 
1570 
1580 
I 590 
1600 

16 10 
1620 
1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 


GOTO 1510 
LET F ( I J*F 

PRINT " - SALARIES.."! 

INPUT HI 11 
LET N=1 

IF HCI 3 <0 THEN 1 490 
PRINT " - AMMUNITION"! 

INPUT BCI3 
LET N=2 

IF BC I J<0 THEN 1390 
PRINT 

IF FI I 3*H£ I 1 4Bf I 3 <= DC J 3 THEN 1510 
PRINT "THINK AGAIN! YOU HAVE ONLY S" 
GOTO 1270 

PRINT "NEGATIVE VALUES NOT ALLOWED." 
GOTO N OF 1370, 1410 
IF B $ <> "YES” THEN 1550 
IF 1=2 THFN 1550 

PRINT "UNION GENERAL "! 

NEXT I 

FOR Z*I TO D 
IF BS <> "YES" THEN 1620 
GOTO Z OF 1 580* 1600 
PRINT "CONFEDERATE ’*! 

GOTO 1620 

PRINT " UNION "! 

REM - FIND MORALE 

LET 0=C<2*FtZl ♦24HIZ3*2)/’F1 »2*!> 

IF 0< J 0 THEN 1660 
PR INT "MORALE IS HIGH" 

GOTO 1 700 

IF 0*5 THEN 1690 

PRINT "MORALE IS FAIR" 

GOTO 1700 

PRINT "MORALE IS POOR" 

IF B $ «» "YES" THEN I 760 


LET c*m*o 
«F / 1 l 
LET 02*0121 
LET O-OIIJ 

PRINT "C ONFEDI HATE 6tsn -'AL---"! 

PIK ' ACTUAL OFf/OU &/• T Tl£ 51 7 DAI i CM* 

If MET 7 HEN 1800 

PRINT "YOU A *E fJ* THE OFFENSIVE" 

0010 I 840 

If M I THEN 1*30 
PRINT "YOU ARE ON THE DEFERS I 
GDI 0 1840 

PM t Hi "BOTH SIDES A>f ON THE OFFENSIVE " 

P*IH7 

PEN - CHOOSE STRATEGIES 
IF fit ** "YES" THEN 1910 

roH i*t io 2 

GOTO I OF 1890,1920 
PRINT "CONFEDERATE STPA7EGY "1 
GOTO 1928 

PRINT "YOUR STRATEGY "! 

INPUT Y 

IF MSIY'TX? THEN 1968 
PRINT "STRATEGY"! Y ! "NOT ALLOWED." 

GOTO 19 J8 

IF B1*"YE5" THEN 2888 
IF Y-S THEN 2838 
G03UB 3110 
GOTO 2170 
IF I »2 THE!! 2842 
LET Y I * Y 

PRINT "UNION STRATEGY "! 

HE/ 7 I 
LET Y2*Y 
LET Y»V1 

IF 72 *5 TH£/| 2020 
REM » SIMULATED LOSSES- MONTH 
LET C6*Y2*C2/S>=< 1 4 | /Y2* f A* 3< 72- 7> ♦ I > J > 

LET C6*C6*< 1 ,28*< 54M2/6) /f 8t2 J* l» J 
LET C6* 1 Hi (C6*< 1*1 /02 > ♦. SJ 

PET - IF LOSS * MEN PRESENT, RESCALE LOSSES 
LET £2*108/0? 

IF Ihl ( CA*£2 > <M6 THEN 2198 
LET C6*INT< l3*M6/20> 

LET E2-7*C6/I3 
LET U2* I 

REM - CALCULATE SIMULATED LOSSES 
PRINT 

PRINT , "CON* EDER ACT", "UWION- 

LET C5=(2*Cl/5> •< l4l/C24<A«Sf r2-Y»4l!>> 

LET C5=INTCC5*f |4|/0>«C I .204F 1/CBC I J* I >> ♦ . SJ 
LET E= 180/0 

IF C5* 1 00/O<H \*t |*CPf-Tl>/OT34|>j THEN 2270 
LET CS=IWT< I3=MI/20*C14CP|-TI>/YM3*I>>> 

LET £»7#C5/13 
LET U* 1 

IF D=l THEN 2 580 
PRINT "CASUAL7IES~,C5,C6 
»90 PRINT "DESERTIONS", 1NT<E>, !MT<£2> 

300 PRINT 

110 IF BS <> "YES" THEN 2538 

120 PRINT "COMPARED TO THE ACTUAL CASUALTIES AT "CS 
130 PRINT "CONr EDEmATEj "I WTr | fjg *CC5/C I > -*■- 5>"2 OF 7r- E ORIGINAL 

140 PRINT "UNION: "|NT< 180 -YC6/C23 ♦. S>"2 OF THE I-ISIMAL 

150 PRINT 

60 REM - | WHO ONE 
70 IF U*| AND U2-1 THEN 2*60 
80 IF U=I THEN 2 4>2 
90 IF U2=| THEN 2aa« 

00 IF CS4E=C6*£2 THEN 2^62 

10 IF C5*£«C64£2 THEN 24*0 

20 PRINT "THE UNION -INS "CS 
30 GO 70 2680 

40 PRINT "THE CONFEDERACY WINS "CS 
50 GOTO 2660 

S0 PRINT "BATTLE OUTCOME UNRESOLVED" 

10 LET W0=W04l 
10 IF A =8 THEN 2790 
>0 G07 0 2680 

>0 LET C6* I MT( 1 7 «C2 »C I /f C 5»28 > > 

0 LET £2=5»0 
0 GOTO 2280 

0 PRINT "YOUR CASUALTIES WERE "I NIC 1 88 . < C 5/C ! T ♦ . 5>- - OF - 
0 PRINT "THE ACTUAL CASUALTIES AT -, C S * ^ 

0 PRINT 

0 REM - FIND WHO WON 
0 IF 0-1 THEN 2592 

0 IF CS«E*!7.C2*CI/<C5.2e>4S»0 THEN 2632 

0 PRINT "YOU LOSE ", C S 
3 IF A =0 THEN 2790 

3 LET L*L*I 
3 GOTO 26S0 
! PRINT "YOU WIN «#CS 

1 REM - CLMULA7IVE 8A7TLE FACTO** ,, 

> «EM RESOURCES AVAlLAaLtflF A R^Vfr H L^ TQR ICAL 

' IF A=0 THEN 2790 ^ * R£PLAr DON'T UPDATE. 

I LET W= w« j 
l LET T I *7 J wCS*E 
LET T2=T24C64£2 
LET P1=PI4C1 
LET P2=P2*C2 

LET 0l=0)*YF{ | J*H[ ) 1 4B I | 3 ) 

LET 02=02«fFl234Hl2l4B£2Jj 
LET R|=Rl4Hi»ciee-I I >/20 
LET R2=R24*t2>r jgg- i2)/2« 

LET M3=M34M| 

LET H4=«44*2 
GOSU9 3300 
LET U=U2*0 

PRINT « 

GOTO 620 

FINISH OFF 

GOTO 7 2860 £ C0NrE£,ESA CT HAS Sl^WEjrDER ED" 

Z!Z; uZ^r 0 ' HAS ^»oa,eo.- 


1710 
1728 
1730 

I 740 

r/50 
1768 
177^ 
17 HM 
I 790 
I/J00 
1810 
1820 
1830 
1840 
1858 
I860 
1870 
1880 
i ^ '/ 
1900 
I 9 J 0 
1920 
1932 

1942 
1958 
I960 
1970 
1980 
1990 
2002 
2010 
2020 
V '/ T V: 

2040 

2058 

2MW 

2078 

2080 

2090 

2100 

2110 

2120 

2130 

21 40 

2150 
2160 
2170 
2180 
2190 
2200 
22 10 
2220 
2238 
22 40 
22 50 
2260 
2270 
2280 


HI 

COfj’t 


civil 


2870 
2880 
2R90 
2900 
29 10 
2920 
2930 
29 40 
2950 
2-960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 

31 10 
3120 
3130 
3 1 40 
3150 
3160 
3 1 70 
3180 
3190 
3200 
3210 
3220 
3230 

32 40 

32 50 
3260 
3270 
3280 
3290 
3300 

33 10 
3320 
3330 
33 40 
3350 
3360 
3370 
3380 
339© 
3400 
3410 
3420 
3430 
3440 


PRINT "THE CONFEDERACY •• I 

PRINT -HAS WON "W" BATTLES AND LOST "L 

IF Y* 5 THEN 2940 

if Y 2s 5 then 2920 

IF W < = L OR Y= S THEN 2940 

PRINT “THE CONFEDERACY HAS WON IMF WAR" 

GOTO 2950 

PRINT "THE UNION HAS WON THE WAR" 

PRINT 

IE R1=0 THEN 3100 

PRINT "FOR THE "W-iL*W0" RATTLES FOUGHT < EXCLUDING RERUNS)" 

PRINT " », 

PRINT " CONFEDERACY*’# " UNION- 

PRINT "HISTORICAL LOSSES**# INT(PM.S)# INTCP24. 5) 

PRINT "SIMULATED LOSSES’*# INT ( T 1 ♦ . 5) # I NT < T2 * . 5) 

PRINT 

PRINT ** S OF ORIGINAL"# INT (V00*( Tl/PI )*.5># 1NT( 1 004 ( T2/P2 > ♦ • S) 

IF B$="YES" THEN 3100 

PRINT 

PRINT "UNION INTELLIGENCE SUGGESTS THAT THE SOUTH USED ** 

PRINT "STRATEGIES 1# 2# 3# 4 IN THE FOLLOWING PERCENTAGES" 

PRINT SCI ))SC2)JS13)JS(4) 

HEM 

STOP 

REM - UNION STRATEGY IS COMPUTER CHOSEN 
PRINT "UNION STRATEGY I S " ) 

IF A <> 0 THEN 3180 
INPUT Y2 

IF Y2 > 0 AND Y2<S THEN 3290 

PRINT "ENTER 1 # 2 # 3 # OR 4 ( USUALLY PREVIOUS UNION STRATEGY)*’ 
GOTO 3140 
LET S0=0 

LET R= I 004RNDC 1 > 

FOR 1=1 TO 4 
LET S0=S0+S [ I ) 

REM - IF ACTUAL STRATEGY INFO IS IN PROGRAM DATA STATEMENTS 
REM THEN R-100 IS EXTRA WEIGHT GIVEN TO THAT STATEGY. 

IF R<SO THEN 3270 
NEXT I 

REM - IF ACTUAL STRAT. IN#THEN HERE IS Y2= HIST. STKAT . 

LET Y2= I 
PRINT Y2 
RETURN 

REM LEARN PRESENT STRATEGY, START FORGETTING OLD ONES 

REM - PRESENT STRATEGY OF SOUTH GAINS 3*S, OTHERS LOSE S PROBABILT 

REM POINTS, UNLESS A STRATEGY FALLS BELOW 5% 

LET S=3 

LET S0 = 0 

FOR 1=1 TO 4 

IF SCI) <= 5 THEN 3390 

LET SCI )=S 1 1 1-S 

LET S0=S0*S 

NEXT I 

LET SCY ) = 5tY )*S0 
RETURN 

REM - HISTORICAL DATA... CAN ADD MORE (STRAT.# ETC) BY INSERTING 
REM DATA STATEMENTS AFTER APPRO. INFO# AND ADJUSTING READ 
DATA "BULL RUN"# 18000# 18500, 1967,2708# 1 


3450 DATA "SHILOH"# 40000. , 44094., 10699# 13047,3 
3460 DATA "SEVEN DAY S" # 9 5080 •# 1 l 50 00. .20614# 158 49 #3 
3470 DATA "SECOND BULL RUN" , 5400 0.# 63000 •# 1 0000# ! 4000, 2 
34R0 DATA "ANT ! ETAM"# 40000. # 50000. # 1 0000# 12000# 3 
3 49 0 DATA "FREDERICKSBURG" #7 5000.# 120000.# 537 7, 126 53# 1 
3500 DATA "MURFREESBORO", 38P00 • * 45000 • * 11P00# 12000# I 
3510 DATA "CHANCELLORS VI LL E" # 32000# 9 000C • * 13000# 17 197,2 
3520 DATA " V I CKSBURG’’# 50000 . # 70000 . # 1 2 0-00# 1 9000 , 1 
3530 DATA "GET T YSB Ul-' G" , 72 500 • # 8 5000 « # 200P/0# 2 3()('0# 3 
3*540 DATA *»CH I CKAMAUGA*’# 66000. #60000.# 18000# 16000,2 
3550 DATA "CHATTANOOGA"#37000. #60000. #36700.# 5800,2 
3560 DATA "SPOT SYLVAN! A"# 62030.# 110000** 17723# 18000,2 
3570 DATA " ATLANTA" # 65000 .# I 00000 .# 8 500 * 3 700* 1 

3580 PRINT "JULY 21* 1861 GEN. BEAUREGARD COMMANDING THE SOUTH MET THE" 

3590 PRINT "UNION FORCES WITH GEN MCDOWELL IN A PREMATURE HAllLE AT DUC 
3600 PRINT "RUN. GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK*" 

3610 GOTO 1150 

3620 PRINT "APRIL 6-7.IR62. THE CONFEDERATE SURPRISE ATTACK AT SHILOH" 
3630 PRINT "FAILED DUE TO POOR ORGANIZATION." 

3640 GOTO 1150 

3650 PRINT "JUNE 2 5- JULY 1*1862 GENERAL LEE (CSA) UPHELD THE OFFENSIVE 
3660 PRINT "THROUGHOUT THE BATTLF AND FORCED GEN. MCCLELLAN AND THE UNO 
3670 PRINT "FORCES AWAY FROM RICHMOND." 

3680 GOTO 1 1 50 

3690 PRINT "AUG. 29-30, 1862. THE COMBINED CONFEDERATE FORCES UNDER LEM 

3700 PRINT "AND JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON." 

37 10 GOTO I 1 50 

3720 PRINT "SEPT 17,1862 THE SOUTH FAILED TO INCORPORATE MARYLAND INTO 
3730 PRINT "THE CONFEDERACY ." 

3740 GOTO 1150 

3750 PRINT "DEC 13,1862 THE CONFEDERACY UNDER LEE SUCCESSFULLY REPULSED 
3760 PRINT "AN ATTACK BY THE UNION UNDER GEN. BURNSIDE. ** 

3770 GOTO 1 1 50 

3780 PRINT "DEC 31,1862 THE SOUTH UNDER GEN. BRAGG WON A CLOSE BATTLE" 
3790 GOTO 1150 

3800 PRINT "MAY 1-6* 1863 THE SOUTH HAD A COSTLY VICTORY AND LOST ONE" 

3810 PRINT "OF THEIR OUTSTANDING GENERALS, ‘STONEWALL* JACKSON." 

3820 GOTO 1150 

383© PRINT "JULY 4* IR63 VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTH" 
3840 PRINT "BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI." 

3850 GOTO 1150 

3660 PRINT "JULY 1-3*1863. A SOUTHERN MISTAKE BY GEN. LEE AT GETTYSBUH 
3870 PRINT "COST THEM ONE OF THE MOST CRUCIAL BATTLES OF THE WAR." 

3880 GOTO 1150 

3890 PRINT "SEPT. 15# 1863- CONFUSION IN A FOREST NEAR CHICKAMAUGA LED" 

3900 PRINT "TO A COSTLY SOUTHERN VICTORY." 

3910 GOTO 1150 

3920 PRINT "NOV. 25# 1863- AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS*" 

3930 PRINT "ARMY FOR THREE MONTHS, GEN. GRANT BROKE THE SIEGE." 

39 40 GOTO I 1 50 

3950 PRINT "MAY 5# 1864 GRANT’S PLAN 10 KEEP LF.E ISOLATED REGAN TO FAC 

3960 PRINT "HERE. AND CONTINUED AT COLD HARBOR AND PETERSBURG. " 

3970 GOTO 1 I 50 

3980 PRINT "AUGUST# 1864 SHERMAN AND THREE VETERAN ARMIES CONVCRGLD ON 
3990 PRINT "ATLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERACY." 

4000 GOTO 1150 
4010 END 
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STAR T»A£>£.* s 

set-up HOOUl f,,* 

S IS THE STAR sSS*!!* 

» * info a*** t 


7 IS THE tradiwc sh7p ,«L^?^ t 
r. IS. TwE I»AD I ,0 S iif | , , S2-'««« 

" ANE, r determine » staa^ pfl 

«• * s<7,j* : ",%r? OD,JCT|v '*' r A»w»tH 

J >S THE STa* ?D : . . ; 

I IS the OCVELolSri', ‘ T ?5 "»CH*«OI*e A. 


PROO/WO- 
WERE 
and r 


^ThE Bank ACCOUNTS 


22 s .r*^M 


STARS 


HIGH *9 LIMITS THE X 


304 
306 
310 
320 
330 
3 40 
3 50 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
605 
610 
620 
630 
640 
645 
650 
660 
670 
675 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
775 
780 
790 
800 
810 
820 
830 
835 
840 
845 
8 50 
855 
860 
870 
875 
880 
885 
890 
900 
9|0 
920 
92 5 
930 
9 40 
950 


*Y* OR 


PLEASE)" 


EACH OP YOU IS THE CAP7AIN OF TWO I NTERSTELLAR" 
"TRADING SHIPS. YOU WILL TRAVEL FROM STAR SYSTEM TO** 
"STAR SYSTEM, BUYING AND SELLING MERCHANDISE- IF YOU" 
"DRIVE A GOOD BARGAIN YOU CAN MAKE LARGE PROFITS." 

" AS TIME GOES ON, EACH STAR SYSTEM WILL SLOWLY" 

"GROW, AND ITS NEEDS WILL CHANGE- A STAR SYSTEM THAT" 
"HOW IS SELLING MUCH URANIUM AND RAW METALS CHEAPLY" 
"MAY NOT HAVE ENOUGH FOR EXPORT IN A FEW YEARS." 


IS THIS YEAR 


RESTORE 2410 
MAT READ M,C 
REM **• BLOCK *1 
PRINT "INSTRUCTIONS f TYPE 
INPUT AS 
IF ASI1*U«"N" THEN 590 
PRINT 

PRINT " THE DATE IS JAN 1, 2070 AND INTERSTELLAR FLIGHT" 

PRINT "HAS EXISTED FOR 70 YEARS. THERE ARE SEVERAL STAR** 

PRINT "SYSTEMS THAT HAVE BEEN COLONIZED. SOME ARE ONLY- 
PRINT "FRONTIER SYSTEMS, OTHERS ARE OLDER AND MORE DEVELOPED-" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT " YOUR SHIPS CAN TRAVEL ABOUT TWO LI 6HT YEARS IN A" 

PRINT "WEEK AND CAN CARRY UP TO"!W!" TONS OF CARGO. ONLY" 

PRINT "CLASS I AND CLASS II STAR SYSTEMS HAVE BANKS ON THEM." 
PRINT "THEY PAY 51 INTEREST AND ANY MONEY YOU DEPOSI T ON ONE" 
PRINT "PLANET JS AVAILABLE ON ANOTHER - PROVIDED THERE'S A LOCAL 
PRINT "BANK." 

PRINT 

REM BLOCK #2 

PRINT "HAVE ALL PLAYERS PLAYED BEFORE"! 

INPUT AS 
PRINT 

IF AS£l*!l«"Y" THEN 630 
GOTO 660 

PRINT "DO YOU WANT TO SET UP YOUR OWN GAME"! 

INPUT AS 
PRINT 

IF ASt I , 1 3 *"Y" THEN 760 
PRINT "HOW MANY PLAYERS"! 

INPUT P 9 
PRINT 

GOTO P9-1 OF 710*710,710 
PRINT "2,3, OR 4 CAN PLAY" 

GOTO 660 

T9=2*P9 

S9*3 *P9 ♦ 1 

Y9= Y 1 *5 

GOTO 1350 

REM BLOCK F3 

PRINT "IS THIS A RESTART"! 

INPUT AS 
PRINT 

IF ASU*lJ«"N" THEN 9 40 

PRINT "LOAD THE TAPE INTO THE TAPE READER 
PRINT "YOU CAN FLIP THE SWITCH TO 'START* 

PRINT 
INPUT TS 

INPUT W*D9*K9*X9*DI* Y ! 

INPUT P9*T9*S9*V9*T!*SI 
FOR J«1 TO S9 

FOR l«I TO 9 STEP 4 .i 

INPUT SUiJhSn*Ndfi*SfI^2»JI#S[IO*JJ 
NEXT I 
NEXT J 

FOR J-l TO T9 

FOR 1-1 TO 9 STEP * ^ .i 

INPUT 7fl#JJ*T£I*!' J, ' TtI 
NEXT I 
NEXT J 

FOR I - | TO P9 

INPUT BC 1*1 J#BI2*I J*BC3 » I * 

NEXT I 
R ■ I 

CHAIN 'TRADES" 

PRINT "HOW MANY PLAYERS"! 

INPUT P 9 


. WHEN I TYPE A '?•" 
WHENEVER YOU'RE READY" 


cop’t 


STAR TRADER 


fset-up rpoduley 


143 


star trader 


955 
960 
970 
980 
990 
100 0 
1005 
1010 
102 0 
1030 
10 40 
1 0S0 
1060 
1070 
1060 
1085 
1090 
1 100 
1110 
1 120 
1130 
1 135 
1 140 
1 1 50 
1160 
1 170 
1 1 80 
1190 
1195 
1200 
12 10 
1220 
1225 
1230 
1240 
1250 
1260 
1270 
1275 
1280 
1290 
1300 
1310 
1320 
1330 
13 40 
1350 
1360 
1370 
1380 
1390 
I 400 
1410 
1 420 
1 43 0 
1 440 
1 450 
I 460 
1 470 
1 480 
1490 
1 500 
1510 
1520 
1530 


PRINT 

IF P9 >* 2 AND P9 < = 12 THEN 990 
PRINT "2.3,4# ... ,12 CAN PLAY" 

GOTO 940 

PRINT "HOW MANY SHIPS PER PLAYER"! 

INPUT X 
PRINT 

IF X<1 THEN 990 
T9=P9*X 

IF T9 <= 12 THEN 1070 

PRINT "1 CAN * T KEEP TRACK OF MORE THAN 12 SHIPS!" 
PRINT P9 ! " PLAYERS TIMES"lX!" SHIPS MAKES” ! T9 
GOTO 990 

PRINT "HOW MANY STAR SYSTEMS" J 

INPUT S9 

PRINT 

IF S9 » = 4 AND S9 <= 13 THEN 1120 
PRINT "FROM 4 TO 13 STARS" 

GOTO 1070 

PRINT "ENTER THE LENGTH OF GAME IN YEARS"! 

INPUT X 
PRINT 

IF X >= 1 AND I NT ( X ) =X THEN 1170 
PRINT "CHOOSE A POSITIVE INTEGER" 

GOTO 1130 


PRINT "WHAT'S THE MAX CARGOE TONNAGE! USUALLY 30>"J 

INPUT W 

PRINT 

pr.n^atVIh! minimum distance between stars. usually ■s>-i 

INPUT D9 

PRINT 

IF D9 <= 25 AND D9 > = 10 THEN 1260 
PRINT "MIN SPACING 10, MAX 25" 

GOTO 1210 

PRINT "HOW MANY BIDS OR OFF £RS ( USUALLY 3>"J 

INPUT K9 

PRINT 

IF K9 < I THEN 1260 utrwrR" 

PRINT -SET THE PROFIT MARGI N(| , 2, 3, 4 OR S> . • • THE HI 

PRINT "THE NUMBER, THE LOWER THE PROFIT X ... USUALLY SET TO 2 

PRINT "...YOUR NUMBER"! 

INPUT X9 

X 9 = 1 8 * ( ABS < X9 ) MIN 5) 


REM *** BLOCK #4. 1 
SC 1 1, 1 3=SC 12, 1 3 = 0 
SC7, 13=15 
REM **• BLOCK #4.2 


H= 1 
S 1=2 

GOSUB 1920 
S I =3 

GOSUB 1920 
S!=4 

GOSUB 2010 
FOR 51=5 TO S9 

GOSUB Sl-3*INTC CS1-1 >/3> OF 1920,2010,2060 
NEXT SI 

REM *** BLOCK #4.3 
FOR St=l TO S9 
FOR J=1 TO 6 
St J,S1 3=0 
NEXT J 

IF Sl»l THEN 1 560 


1 540 
1 550 
1560 
1570 
1580 
1590 
1 600 
1610 
1620 
1 630 
1640 
1650 
1655 
1657 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
I 7 40 

17 50 
1760 
1770 
1780 
1 790 
1800 
1610 
1820 
1830 

18 40 
1850 
I860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
I960 
1970 
I960 
1990 
2000 
2010 
201 


1 = 1 

GOTO 1600 

I = 4*INT< 1 4*RNDf 0 ) ) ♦ 5 

FOR J=2 TO SI -l 

IF I =S C8, J 3 THEN 1560 

NEXT J 

SC8,S1 3=1 

S C9, S 1 3=270 

SC 10, SI 3=Y I- I 

NEXT SI 

REM *** BLOCK #4.4 

T f *L* 1 

PRINT 

prJnJ -captains, name your ships (UP TO 6 LETTERS/BLANKS/NUMBERSI" 

for 1=1 TO T9/P9 

PRINT 

FOR Pl=l TO P9 

TC l»Tl 3=TC2,Tl 3=TC6,T1 3=0 

TC3,T13=!S 
TC4,TI 3=TC5,T1 3=10 
TC 7, T 1 3=25 
T C 9 , T I 3 = D1 
TCI0,T1 3=Y1 

pri'iIit^'-’^captain-.pii-what do you christen your ship 

INPUT TSCL.L+53 

T 1 «T 1 ♦ 1 

L*L*6 

NEXT PI 

NEXT I 

REM • ** BLOCK #4.5 
FOR B 1 = I TO P9 
BC l,B! 3 = 0 
B 1 2 , 8 1 3 = DI 
B (3,B 1 3 =Y I 
NEXT B I 

CHAIN "TRADES" 

R£M • ** GOSUBS FOLLOW *** 

REM <FRONTIER> GOSUB 
X* CRND< 0)-« 53*100 

If 5 <ABS?xjU5> AND CY<25) THEN 1920 
F ■ I 

GOSUB 2190 
IF F=0 THEN 1920 
SC7,Sl 3=0 

REM 0 *** < UNDER DEVELOPED > GOSUB 
E* I 00 

2110 


14 ! 


I l 
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STAR TRADER 

tpcdulej 


20 COM U, t D9!K» 1 iI t i?' 12, ' T,t72, ' 8t3 ' ,2J 

30 ss 

ss «x,r“ s *** 

OJM «U6),sJt60? ft ' < AND STAR SYSTE " NAMES 


35 
40 
50 
120 
130 
UO 
ISO 
160 
170 
160 
190 
200 
210 
220 
230 
24 0 
250 
260 
270 
260 
290 
300 
310 
320 
330 
340 
350 
360 
370 
360 
390 
400 
402 
404 
406 
406 
410 
412 
414 
420 
424 
426 
426 
430 
432 
434 
440 
450 
460 
4 70 
460 
490 
500 
510 
520 
530 
54 0 
550 


LET s^=»sSL F Yn»S R nv RMI Y ‘ JUNJ " LAUGSEP0CTN0UDEC “ 

LET S$ t53] a H K ^ R sp° Y £. 1 .' ;ANREEFHOOKSTANTA SKSl^JKSANDQUINGA01-KIRK• , 

RFM ^ !c l HZ STArA ^STEM INFO ARRAY 
REM TS 1 S T Thf T ? ADING SHIP 1NF0 ARRa Y 

REM P CONTAIhiJJS^r 0 SHIP NAME STR1NG <6 CHARS PER SHIP) 

*£ * HAs T ?ir F i^ 0 F PM CE p s ,CE5 on the local planet 
K! S.SESim" ™ E BANK ACC0, "“ TS 

RF-ST0^™ it5J ' N “ 36) ' GI6 ’ 
mat READ Q . 

LET ^S-” 0 ^ 500 ' 4000 ^ 500 ' 3000 ' 3000 

REM ACCEPTABLE^ J HE PRICE WIND0W THROUOH^HICM A BID IS 
REM ACCEPTABLE FOR FURTHER hAGGLlNG 

DEF FNY^) > li F > Y<X oc* 5 " ( N ° T FNY <*>>*X'<2*ABS(S(1I,SI3)>>/K1 
DEF FNY( X ) * X >= ABS(Stl 1 ,SI 3) 

REM no !c Iu5 S PEED 0F A SHIP ‘N LIGHTYEARS PER DAY 

RFM o »i S ^ THE MINIMUM distance allowed between stars 

Rem 0 is ThE PROBABILITY OF A DELAY 

REM K9 IS THE MAX NUMBER OF BIDDING ROUNDS 

v« IS THE MAX VEIGHT 0F A TRADING SHI P * S CARGO 
dcm ™ CONTROLS THE PROFIT MARGIN; HIGH X9 LIMITS THE X 
REM G9 IS THE STELLAR DEV/ELOPEMENT # INCREMENT l<-G9<-5 
REM *** BLOCK #5 
IF R=0 THEN 430 
GOSUB 3660 
GOSUB 5190 
FOR T2= 1 TO T9 
IF T2=T1 THEN 420 
L*=<T2- I ) *6 + I 

PRINT T4tL#L+53l" IS ENROUTE TO " ; SS IT t 8,T2 3 ,T t 6# T2 3 +3 3 
NEXT T2 
L=(TI-| ) *6* I 

PRINT " AND " ITS [ L, L + 5 3 J " 

GOTO 2040 
GOSUB 5190 
GOSUB 3190 
S 1 =T 1 =L I = 1 
PRINT 

PRINT ‘'ALL SHIPS START AT SOL*' 

PRINT "ADU1CE; VISIT THE CLASS III AND IV SYSTEMS 
PRINT "SOL AND THE CLASS II STARS PRODUCE ALOT OF HELMED AND" 
PRINT "SOFT , WHICH THE POORER STAR SYSTEMS (CLASS III AND" 
PRINT "IV) NEED. ALSO.. THE POOR STARS PRODUCE THE RAW GOODS 
PRINT "UR, MET, GEMS THAT YOU CAN BRING BACK TO SOL AND" 

PRINT "THE CLASS II SYSTEMS IN TRADE" 

PRINT 

PRINT "STUDY THE MAP AND CURRENT PRICE CHARTS CAREFULLY 
PRINT "CLASS 1 AND 11 STARS MAKE EXCELLENT TRADING PARTNERS" 
PRINT "WITH CLASS III OR IV STARS." 


IS ABOUT TO LEAVE "iSSCTC8,Tl3,Tt8,Tl 3 ♦33 


560 

FOR 11=1 TO T9/P9 



570 

FOR P 1 = 1 TO P9 



580 

PRINT 



590 

PRINT "PLAYER";Pl I", WHICH STAR WILL 

";t$cli,li-53;" travel 

600 

GOSUB 2770 



610 

L1=L1 *6 



620 

T 1 =T t ♦ 1 



630 

NEXT PI 



640 

NEXT I 1 



650 

REM *** BLOCK 0 6 



660 

D=T C 9 , 1 3 



670 

Y=TC 10, 1 3 



660 

T 1 * 1 



690 

FOR 1=2 TO T9 



700 

IF TC 10, I 3<Y THEN 740 



710 

IF T( 10, I 3>Y THEN 770 



720 

IF TC9, I 3 >D THEN 770 



730 

IF T C9, 1 3 =D AND RND<0)>.5 THEN 770 



74 0 

D=TC9, I 3 



750 

Y C T (10,13 



760 

T 1 = I 



770 

NEXT I 



780 

IF Y 1 =Y THEN 900 



790 

D 1 «= 1 



BOO 

Y l = Y 



810 

T2 = T1 



820 

GOSUB 3190 



622 

IF Y 1 «> 2071 THEN 830 



624 

GOSUB 4500 



626 

PRINT "THE LAST YEAR OF THIS GAME IS 

"IY9;" BUT 

IF YOU" 

62 6 

PRINT "WANT TO Qt/IT BEFORE THEN, YOU 

CAN TYPE' • 

SAVE* AS" 

829 

PRINT "YOUR NEXT PORT OF CALL - THIS 

WILL PUNCH 

A TAPE" 

630 

PRINT "SO YOU CAN CONTINUE THE GAME LATER" 

631 

T I =T2 



840 

IF Yi <Y9 THEN 900 



850 

GOSUB 4500 



860 

PRINT "NEW GAME"! 



870 

INPUT AS 



680 

IF AS C 1 « 1 J«"N" THEN 5500 



690 

CHAIN "TRADER" 



900 

DI*D 



910 

M=INTC<D1-1 >/30> 



920 

L«3*M*I 



930 

PRINT 



94 0 

PRINT 



950 




960 

PRINT "* ";CStL,L^2J;DI-30*Ml","IY| 



970 

L=<TI -1 3*6^l 



980 

S|«T(6,TI 3 




990 

1000 

1010 

1020 


M-S18/SI ) 

PRINT "• ";TSCL,L*5i;" has LANDED ON "iS» (M,M*3 J 

GOTO T C 1 2 , T l 3*1 OF 1060,1060,1040,1020 

PRINT "3 WEEKS LATE - PIRATES ATTACKED MIDVOYAGE" 


115 

coi>»t 


trader 


1030 

1040 

io no 

10 Ml 
1010 
»o no 
lovn 
i loo 
1110 
I IPU 

i no 

I I '10 
ino 
i no 
i no 
,1 1 bo 
i no 
I POO 

ipio 

19110 

id. io 

IP40 
id no 
Id 60 
li’ >o 
I P HO 
1990 
1300 
1310 
1300 
1330 
1340 
1342 
1350 
1360 
1362 
1364 
1366 

1310 
1360 
l 3 dO 
1400 
14 10 
1 4130 
1430 
1440 
1450 
1460 
1410 
1460 
1490 
1500 
1510 
1320 
1530 
1540 
1550 
1553 
1560 
1510 
1360 
1590 
1600 
1610 
1620 
1630 
164 0 
1630 
1660 
1610 
1660 
1690 
1100 
1110 
nao 

1130 
1140 
1150 
1160 
1170 
1172 
1774 
1776 
1760 
1790 
1600 
1610 
1620 
1830 
1640 
1630 
I860 
1870 
I860 
1690 
1900 
1910 
1920 
1930 
1940 
I 930 
I960 
1970 
I960 
1990 
8000 
»0 10 
toto 
8030 
9040 
8050 
8060 
8070 
8080 
P0«0 
2100 


GOTO 1060 

PHI NT "9 WEEKS l ATI - ‘VI OOT LUV| . SORRY*" 

(1010 1060 

po i nt ”i vr.FK um * *oim com mi ter maue a mistake 

HIM POINT CARGO STATUS FOR CURRENT SHIP 

POINT 

POINT "i ON HOARD" J Nil" NI T WT" 

POINT USING I I I (U T l I 1 « T I ) » 1 t I * T I ) # T ( 8 # T I ) . T 1 3 i T I i 
image mixiM«nxnon« iux.pdj 

OK M **• Ul.OCK M 
003101 3B 70 
l>0 1 NT 

POINT "VI AMK BUYING I " 

01 "I 

row 11 -I TO 6 

II •• t 1 1 , | 1 • 0 00 r t 11 .T I )« .5 THIN I 480 

POINT TAIMH) JNUill •Wl**)!" VM NEED •• I - I NT < St I I *51 ) 

PH 1 NT “MOV* MANY ARE YOU SELLING" I 

00S1IH 44.10 

ir 6*0 THKN 1460 

ir X *- T t I I *T I ) THEN 1270 

POINT TAMI 5 ) r'YOll ONLY HAOI " I T l I 1 # T I ) J " UNITS IN 
POINT TAW (3)1 
ROTO 1900 

IK X «* lOMNTISIIhSI)) THKN 1300 
X-P-- INTt S l 1 | 4 5 I 1 ) 

POINT TAM <3 > 1"VK 'LL HID ON "JXJ" UNITS." 

K 00 HI -I TO K9 

IK Kl#h*i MAX P THKN 1340 

POINT TAHf»>r’OUO K 1NA1. QFFKHl"! 

OOTO 1350 

POINT TAH(S>!"VK OKKKO "J 
YTULhl ) • 1 0/3 

POINT 1 00* 1 NT < »OOV*P I l I ) -X* . 5 ) ! " WHAT DO YOU II I IV I 
INPUT Y 

IF Y»P(ll)*X/|0 ANO Y«PCH)*X*I(> THEN 13 70 
POINT TAH (6 ) I’* WATCH YOU A TYPING -* TOY AGAIN" 

GOTO 1340 

IK Y <« PI 1 M*X THIN 1430 

IK Y>< 1+FNE(X) >*PC1 I 3 ♦ X THKN 1410 

Pf 1 l J-.h-PI 1 I n.p*Y/x 

NK XT K I 

POINT TAHC5) J"WK*LL PASS THIS ONE" 

GOTO 1460 

PRINT TAH<5)I"WK'LL HUYt" 

T(ll#TI)*Ttll»TI 1*X 
TC7.TI 1 -T C 7^ T I 3-XM 1 I «S) 

T( I 1 #T I 3-T 1 1 I *TI 3 *Y 

SHUSD«SCI1/S1)*X 

JI-JI«6 

NK XT I I 

PRINT 

RF.H BLOCK #6 

PRINT "WK ARE SELLING*" 

Jl«l 

FOR 11-1 TO 6 

IK G ( I I 3 <• 0 OR S C 1 I «SI 3< I THEN I960 
If I I <- 4 ANO T(7,T|1 >• W THKN I960 
POINT TAMC5>INSt dl #JI+51 1" HP TO " ! 1NT IS tl 1 #S 1 3 > J" 
POINT "HOV MANY ARE YOU BUYING" ! 

GOSUH 4430 
IF X-0 THKN I960 

IF Il>4 OR X»T C 7>T I 3 <• W THKN 1660 

POINT TAM I 5 > l"YOH HAWK "ITC/JIlJ' 1 TONS ABOARD. SO 

PRINT " TONS PUTS YOU OVER" 

PRINT TAH(5>J"YHfc "!W!" TON LIMIT." 

PRINT TA‘U5)J 
GOTO IS 70 

IF X <• SI I | ,sn THEN 1700 

PRINT TAM(S) l"VE ONLY HAVE " J I NT < S C I I , S I 3 ) J " UNITS* 
PRINT TAM < 5 ) ! 

GOTO 1570 

KOO Kl-I TO K9 

IF KI#K9 MAX P THKN 1740 

PRINT TAB! 5 > J"OUR FINAL OFFER I" I 

GOTO 1750 

PRINT T AM <5)1 " VK WANT ABOUT "I 
POINT I 00- I NT ( .Oil -PI | | )»X«.5> J 
PRINT "YOUR OFFER"! 

INPUT Y 

IK Y»Pl I I 3 » X / | 0 ANU Y<P( I 1 ) *X* 10 THEN 1760 
POINT TAB (5 >|"WATCH YOUR TYPING -- TRY AGAIN" 

GOTO I 740 


• * * ^ • » • i ■* -n i ii r. n l nan 

IF Y<( l-FN{(X))»P( | | J*x THEN I 620 


PI 1 I )- »6*PI 1 | )< ,2.y/x 
NEXT K I 

PRINT TAMIS) I "THAT *S TOO LOW" 

GOTO I960 

IF Y «• TIIUTI) THKN 1910 

GOSUrt 43?0 5>l Y ° M H,D 1 “ ,Yr ‘ Bl,T Y0U HAVE ONLY 

MInt’tah’su ™ ,n ihsio 

GOSUH 4090 

If Y*T t I I #T I 3 THKN I 680 
PRINT T AH ( 5 ) ! "SOLD I ” 

TC 1 1 #T I 3 -T 1 1 1 ,T I ) ♦X 
TC7#Tl 3-TC7.TI 34X*<| ns> 

5,1 I.SI 3-ntl I, SI 3-X 
Tt I l#TI J«TC 1 I »TI 3-Y 
JI«JI«6 
NEXT 1 | 

REM *m BLOCK #9 
GO S III* 4310 

ir m.su,, 0 OS r.M.T, »u.O THKN JO.O 


.tu'.md 4U20 
PRINT 

ZZ 7Z T ls Y0 '"' 

RFM BLOCK #|0.| 

J-0 

ron i*i to & 

IF SU#S|) »• 0 THEN 8180 
ir S(mi)'QCl) THEN 660 


Call" j 


«Tt4#TIJ*T(fc#TI0 


)!" UNITS."! 


YOUR HOLD" 


UNITS."! 


" ! X! 




CIUTI 3 




146 


coo’t 


ai 10 
aiao 

2130 
2 UO 
8150 
8160 
8 I 62 
8170 
8180 
8190 
8800 
3210 
8820 
2230 
22$0 
2250 
2260 

22 70 
2260 
2290 
2300 

23 10 
2320 
2330 
2340 
2350 
2360 

23 70 
2380 
2390 
2400 

24 10 
2420 
24 30 
2440 
24 50 
2460 
24 70 

24 60 
84 90 
2500 
2510 
2520 
8530 
2540 
2550 
2560 
2570 
2580 

25 90 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 

26 90 
2700 
2710 
2720 
2730 
2 740 
2750 
2760 
2770 
2780 
2790 
2800 
2610 
2620 
2830 

2832 

2833 

2834 

2835 

2836 
2840 
2842 
2646 
284 8 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 

30 bO 
3090 
3100 

31 10 
3120 
3130 
3140 
3150 
3160 
3170 


'JSSISIh/Sll.SCHtSl J *3 1 J" IS NOW A CLAfiA"# 


IT IS A CLASS IV 


NEXT I 

IF J>| THKN 660 
RKM • »* BLOCK # 10.2 
St7 ' s > US ( 7, S| ]*G9 
OO-SC 7.S l 1 

GOsun^sSu" 00 ' 10 AND c, °' 15 ™ EN t “ , *° 

GOSIIfl 4$00 
PRINT "STAR SYSTEM 
PRINT Oil- SYSTEM” 

HEM HLOCK # 10.3 

*F S 9 -I 5 THEN 660 
d -0 

FOR 1 ■ | TO S 9 
J»U«-SC 7 , I ) 

NEXT I 

IF d/S 9 «IO THEN 660 
REM A NF.V STAR IS HORN! 

S 1 *59*59* | 

GOSUB 4660 
GOSUB ?a 50 
SC 9 ,Sl 3 -D I 
SC 10 , St 1 «* Y | 

FOR d-| TO 6 
S C d, S | )«0 
NEXT d 
GOSMB 4500 

PRINT "A NEW STAR SYSTEM MAS BEEN DISCOVERED! 

PRINT "AND ITS NAME I S" I S» C S C 8 # S 13 , S £ H, S I) O ] 

GOSUB 5190 
GOTO 660 
STOP 

REM GOSUHS FOLLOW **• 

REM <FRONTIER»> GOSIIO 
X-CRNDCO)- . 5 ) * 1 00 
Y- 50 -RNDC 0 ) 

IF CABS < X > < 25 ) AND <Y« 25 > THEN 8450 
F-l 

GOSHB 2550 
IF F -0 THEN 2450 
SC 7 #S| 1-0 
RETURN 

REM <TE ST STAR CO-ORDS> GOSUB 

REM FIRST CONVERT CO-OROS TO NEXT HALF-HOARD 

GOTO H OF 2660 , 2620 , 2600/2560 

Z-X 

X--Y 

Y-Z 

GOTO 2660 
Y--Y 

GOTO 2660 

Z-X 

X-Y 

Y-Z 

REM SECOND TEST PROXIMITY 
FOR d-l TO SI- I 

IF SQRCCX-Sll l,dl)» 2 *<Y-SCl 2 ,d)>» 2 ) *- 09 THEN 8700 
F -0 

RETURN 
NEXT J 

REM FINALLY ENTER CO-OKDS AND INCREMENT HALF -BOARD COUNTER 
S C I I , S I ) - 1 NT C X ) 

SC 12 , S? )- JNTCY) 

H-| 4 (H <• 3 >#H 
RETURN 

REM »** <NF.XT ETA» GOSMB 

INPUT AS 

FOR I»l TO S 9 

d*S C 6 , I ? 

IF ASC l, 4 )»Sltd,d* 3 ) THEN 2870 
NEXT 1 

SAVE” THEN 2632 


<> “MAP” THEN 2840 


"REPORT" THEN 284 8 


IS NOT A STAR NAME IN THIS GAME" 


IF AS l 1,41 
GOSIJB 4 770 
IF AS C I , 3 J 
S2-SI 

GOSUB 5190 
SI -S2 
GOTO 2850 
IF AS C I ,6 J 
GOSUB 3160 
GOTO 2850 
PRINT ASCI 
HR I NT *'NEXT STAR"! 

GOTO 2770 
TC8/TI )-! 

IF i / s I THEN 2910 

PRINT "CHOOSE A DIFFERENT STAR SYSTEM TO VISIT" 

D«I?OR?<SCI I, SI J-SCI |,J)>«2*<Stl2,SM-SC|2,l J)»2)/R9 
D2» 1NT <D2 ) 

IK RND CO > » < 4/2 ) THEN 3030 
1-1 4 I NT C RND < 0 > *3 > 

GOTO I OF 3000 ,8980 ,2960 

PRINT "SHIP DOES NOT PASS INSPECTION"! 

GOTO 3010 

PRINT "CREWMEN DEMAND 
GOTO 3010 

PRINT "LOCAL HOLIDAY S00N"J 
PRINT " • "III" WEEK DELAY," 

D2 -D2 4 7*1 

T I 9 , T I J-TC9/T1 )*D2 
IF TC9,TI 1 <• 360 THEN 3070 

T C 9/T I J«TC9,TI 1-360 
TflOJI J-TC IO,T| )♦! 

M-1NTCCTC9,TI)-I 1/30) 

PRINTLINE ETA AT "lS*Cd,d 43 W" is "/Cl CL/L +2 ) I" "IT ( V,T I 1 - 30 -M l"f 
RFM UPDATE ETA PLUS RANOM DELAY FACTOR < 0 , 1,2 OH 3 WEEKS I 
j •( J NT ( RND < 0 )- 3 >*l >*<HNIXO) > C Q/ 8 ) > 

TC9/TI l-TCV/TI )>7-l 

IF TC9/TI1 360 THEN 3160 
T C 9/T I 1-TC 9,T I 1-360 
T C ! 0 , T I 1-TC 10, Tl 1*1 
TC 12, T I ) * I 
RETURN 


VACATION" 
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3180 

3190 

3200 

3210 

3220 

3230 

3240 


REM *** <REP0RT> GOSUB 
GOSUB 4500 

PRINT TAB(|0)!"JAN |, 

PRINT 
PRINT 

IF Y I >2070 THEN 3450 
PRINT "STAR SYSTEM CLASSES « 


I Y 1 ! T AB ( 35 ) !" YEARLY REPORT #"!Yl-2069 


3250 

PRINT 

" 1 

COSMOPOLITAN" 

3260 

PR I NT 

" 1 1 

DEVELOPED" 

3270 

PRINT 

" 111 

UNDERDEVELOPED" 

3260 

PR 1 NT 

" IV 

FRONTIER" 

3290 

PRINT 



3300 

PRINT 



3310 

PRINT 

"MERCHANDISE i" 

3320 

PRINT 

" UR 

URANIUM" 

3330 

PRINT 

" MET 

METALS" 

3340 

PRINT 

" HE 

HEAVY EQUIPMENT" 

3350 

PRINT 

" MED 

MEDICINE" 

3360 

PRINT 

" SOFT 

COMPUTER SOFTWARE" 

33 70 

PRINT 

" GEMS 

STAR GEMS" 

3380 

PRINT 



3390 

PRINT 



3400 

PRINT 

TAB ( 5 ) !" 

EACH TRADING SHIP CAN 

34 10 

PRINT 

"STAR GEMS AND COMPUTER SOFTW 

3420 

PRINT 

"TON/ DON'T COUNT." 

3430 

PRINT 



3440 

PRINT 



3450 

PRINT 

TAB(2Q ) ! 

"CURRENT PRICES" 

3460 

PRINT 



34 70 

PRINT 



3480 

PRINT 

"NAME C LASS" ! NS 

3490 

PRINT 



3500 

FOR SI 

*1 TO S9 


3510 

GOSUB 

3870 


3520 

FOR I* 

1 TO 6 


3530 

pt n*sGN<st hsm*p[ 1 3 

3540 

NEXT I 



3550 

GOSUB 

4580 


3560 

PRINT 

USING " 

#/4A/2X"!SSCS(6/Sl 3 /SI 


RY MAX "!W!" TONS CARGO." 
WHICH AREN'T SOLD BY THE" 


3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

36 70 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4082 

4090 

4100 

41 10 

4120 

4130 

4140 

4150 

4 160 

4 170 

4180 

4 190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4260 

4290 

4300 

4310 

4320 


PRINT USING "5A/6<S5D)" JDS / P( I ) #P(2 ),PC3 3 # PC4 3/PC53/PI6) 

IF Sl/2 <> INT<Sl/2> THEN 3600 

PRINT 

NEXT SI 

PRINT 

PRINT "<•♦’ MEANS SELLING AND • MEANS BUYING)" 

PRINT 

PRINT 

PRINT TAB < 22 ) ! "CAPT A I NS" 

PRINT 

PRINT 

PRINT "NUMBER S ON SHIPS S IN BANK CARGOES TOT 

FOR Bl-1 TO P9 
GOSUB 4380 
NEXT B 1 

FOR PI - I TO P9 
PRINT 
Ml *M2*0 

FOR 11*0 TO T9/P9-* | 

Ml *M I ♦T C I I /P9*I I +P1 3 
FOR K* I TO 6 

M2*M2+T IK. P9*I 1 *P1 )*QCK) 

NEXT K 
NEXT I 1 

M3*M2 +M 1 +B [ I jP \ 3 

PRINT USING 3830JPI/MI/B(1*P| 3 ,M2,M3 
IMAGE 2X/2D/2X/4 < 2X/ DDXDDDXDDD > 

NEXT PI 
RETURN 

REM *** <PRICES> GOSUB 
Rl“l*<SC7/S| 3 >= 5)+(S(7/Sl 3 >* 10) 

D2*12*(YI-SC 10/SI 3)*<Dl-St9/Sl 3 ) /30 
FOR 1*1 TO 6 

Gtl )*< l*SC7/Sl )/|5>*<Mtl/Rl 3*SC7/SI 3*C tl/Rl 3) 

IF ABS(GCID)>.01 THEN 3940 

P(13«0 

GOTO 3970 

St I # S 1 3*SGN(GC1) )*<ABS<Gt 13*12) MIN ABSCStl.Sl 3*D2*Gtl3)) 
PtI)«Q[I )*( 1-SGN<SC1,S1 )>*ABS<Stl/S13/<GU 3 » X9 ) ) ) 

Pt 1)» 100*1 NT (Pt 1 3/100 + .5) 

NEXT I 
S(9,SI 3*D1 
SC 10/SI 3-Yl 
RETURN 

RF.M *** <BANK C ALL> GOSUB 

PRINT "DO YOU WISH TO VISIT THE LOCAL BANK"; 

INPUT AS 

IF AS C I / I 3 *" Y" THEN 4060 

RETURN 

GOSUB 4310 

GOSUB 4360 

PRINT TAB ( 5 ) ) "YOU HAVE S"!BCl,Bl)J" IN THE BANK" 

PRINT TAB ( 5 ) )" AND S" IT t 1 l #TI 3 J" ON YOUR SHIP" 

IF BC 1 ,BI 3 *0 THEN 4 1 90 

PRINT TAB < 5 > j "HOW MUCH DO YOU WISH TO WITHDRAW"! 

INPUT Z 

IF Z <• B ( I * B I ) THEN 4 150 
PRINT TA8(5)I"T00 MUCH! "; 

GOTO 4100 

IF Z <« 0 THEN 4190 
Bt 1 / B | 3 *B ( I / B 1 3-Z 
Ttl 1 /T1 3*Tt 1 I,TI 3*Z 
RETURN 

PRINT TAB C 5 ) I"HOW MUCH DO YOU WISH TO DEPOSIT"! 

INPUT Z 

IF l >= 0 THEN 4240 

PRINT TAB ( 5 ) i" YOU CAN'T DEPOSIT A NEGATIVE NUMBER" 

GOTO 4190 

IF Z «* T C 1 I #T 1 ) THEN 4270 

PRINT TAB < 5 ) !" YOU HAVE l"!Tl l | *Tl J!" ON YOUR SHIP" 

GOTO 4190 

Till #T 1 3"TC I I/TI 3-2 
BU.BI )-8C 1 . 8 1 ) ♦Z 
RETURN 

REM *»* <B I > GOSUB 
Bl-Tl 

FOR I-I TO S9/P9 


cop’t 


trader 


oic 

43*0 
*5«C 
4*OC 
44 1C 
U?0 
MW 
4440 

44 se 

4460 
44 70 
44 60 
4490 
4SOO 
4S20 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
46SO 
4660 
46 70 
4680 
4690 
4 700 
4710 
4720 
4 730 
4740 
4 7S0 
4 760 
4770 
4 780 
4 790 
4800 
4810 
4820 
4630 
4640 
4 850 
4660 
4870 
4860 
4690 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4960 
4990 
5000 
5010 
5040 
5060 
50 70 

50 80 
5090 
5120 
5140 
5150 
5160 

51 70 
5172 

51 74 
5176 
5160 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 

52 70 
5280 
5290 
5300 

53 10 
5320 
5330 
5340 
5342 
5350 
5360 
5370 
5360 
5390 
5400 

54 10 
5420 
5430 
5440 
54 50 
5460 
54 70 
54 60 
54 90 
5500 


£ 41 -^ ~ 

*€17 1 

9F?V^* 

8I*!b! Si 1 81 l*<l»|-eC2»St >»X360>» 

et3»et j«ti 

* , ^ rT ‘ •••» 

AW* X »« o TICll 4 4 M} 

S £ inWAZZ* * “« v*»r rc « SS TWS «« 

2SMS *° fcECAT,VES «>« 0EClr.aU” 

return 

*** ••• < 6a> gQ5u 8 

PRINT 

P«l»fT 

TAa '* 0 '*"*" 6CWSAI. MWOUhCEHEM^ ..." 

PRINT 

RETURN 

«■* <dj» go Sob 

C-OTO SCT.SU/5A! OF 4GS0.463O.4610.459C 

RETOPN 
DS*- 1 1" 

RETURN 

nv«- nr 

RETURN 
ov«- IV 
RETURN 

REH ••• <STAR NAME > G0SU8 
IF S * > 1 THEN 4710 
1 = 1 

GOTO 47S0 

I *4 • I NT C | 4 »RND <0 > > ♦S 

FOR J*2 TO SI-1 

IF !=SC6» J) THEN 4710 

NEXT J 

SC 6,S| 3*1 

RETURN 

REM ••• «SAVE GAME ON TAPE» G0SU8 

PRINT "WHEN 1 TYPE *7* THIS IS WHAT YOU SHOULD DO*" 
PRINT 

PRINT " | . 

PR 1 NT " p . 

PRINT - 3 . 

PRINT - <i. 

PRINT - 5. 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT " 

PRINT L I N ( 3 > 

INPUT X 
PRINT "Ilf- 
FOR 1=1 TO IOOOO 
X=X* I 
NEXT I 
PRINT T! 

print w i D9; K9;- 
print P9;"#"ST9;-,- ;S9; 

FOR J= I TO S9 

FOR 1=1 TO 9 STEP 4 

PRINT St 1 iJ) J-,"JSC I ♦! ,J) ; 

NEXT I 
NEXT J 

FOR J=l TO T9 

FOR 1=1 TO 9 STEP 4 

PRINT TCl»J]J n » (V ITll<»l * J3l ,, # M iTlI«-2#JJl M j ,, ITI10# «J3/— 
NEXT 1 
NEXT J 

FOR 1=1 TO P9 

PRINT BClsIlJ- / "IB I2#13I*'^"/BC3# 13; — 

NEXT 1 

FOR 1*1 TO 50 
PRINT " - ; 

NF.XT 1 
STOP 

REM *** <PR I NT STAR MAP> GOSUB 
PRINT LI N< 3 ) 

PRINT TA3<22 ) i-STAR MAP" 

PRINT TABC20) I"************" 

PRINT 

DIM LSC5S) 

FOR LI = 15 TO -15 STF.P -I 
IF LI <> 0 THEN 5290 

L* = " 1 1 1 l I *S0L-1 1 | | 

GOTO 5340 
LS°" 

IF ARStLI )/3= INTtARSCLI )/3) THEN 5330 
LS C 26# 26 3 ■" I " 

GOTO 5340 
LVC26./263-"-" 

Y*L 1 * 1 0/3 
YO* ( L 1 ♦ I > * 1 0/3 
F OH SI =2 TO S9 

IF S C 1 2 * S I J >= YO OR S ( I 2 / S I ) <Y THEN 5400 
X I = I NT C26 + S C I I ,S1 3/2) 

LS t X I »XI ]=”*" 

LS C XI ♦ | # X I +4 3*S4 CS ( 8« S I 3 « S C 8*SJ 3 »3 3 
NEXT SI 

FOR 1=55 TO 26 STEP -1 
IF LSC1,13 <> » " THEN 5440 
NEXT I 

PRINT LS C I « I 3 
NEXT LI 
PRINT 

PRINT "THE MAP IS 100 LIGHT-YEARS BY 100 LIGHT-Ypauc .. 
PRINT -SO THE CROSS-LINES MARK 10 Li GHT-YFAF^D I ctaufp 
RETURN Tt * K DISTANCES" 


PUSH THE *0N * BUTTON ON THE TAPE PUNCHER" 

PRESS THE * HERE IS* KEY CUPPEP RIGHT) 3 TIMES" 
PUSH THE ‘OFF* BUTTON ON THE TAPE PUNCHER- 
TYPE ANY NUMBER- 
PRESS THE * RETURN * KEY*’ 


-WHEN 1 TYPE ‘Ilf* THAT MEANS I *LL START PUNCHING" 
-THE TAPE IN AHOUT 10 SECONDS » SO*" 

OON *T FORGET TO TURN THE PUNCHER BACK ON 


”JX9;-,"JDI I"/ 
,-;y9;-,-;t j j- 


; y i ; — 

- ;s I ; — 


sci ♦2*j)!”*-;sci*3/J3;” 


Last Chapter 


LUNAR 


1000 REM LUNAR 

1010 PRINT "DO YOU WANT INSTRUCTIONS"! 

1020 INPUT AM I , 1) 

1030 IF AS#"Y" THEN I 130 

1040 PRINT "GROUND CONTROL CALLING LUNAR LANDER*' 

1050 PRINT "ON-BOARD AND GROUND COMPUTERS KAPUT" 

10«0 PRINT "TAKE OVER ! H" 

1070 PRINT "CAPSULE WEIGHT 33000 LBS - AVAILABLE FUEL 16500 LBS" 

1080 PRINT "ESTIMATED FREE FALL IMPACT TIME 120 SECONDS" 

1090 PRINT 

1100 PRINT "SET RETRO ROCKET BURN RATE TO ANY VALUE FROM 0 LBS/SEC" 

1110 PRINT "(FREE FALL) TO 300 LBS/SEC* TYPE A COMMA AND THEN" 

1120 PRINT "GIVE THE BURN TIME LENGTH." 

1122 PRINT "(THE BURN RATE 15 THE AMOUNT OF FUEL THAT YOUR" 

1124 PRINT "RETRO ROCKETS WILL BURN EACH SECOND. THE BURN TIME LENGTH" 

1126 PRINT "IS THE NUMBER OF SECONDS YOU WANT YOUR RETRO ROCKETS" 

1128 PRINT "TO BURN AT THIS RATE.)" 

1130 PRINT 

1140 PRINT "GOOD LUCK!" 

1150 PRINT 

1160 PRINT "SEC" I TAB (10) I "HI ♦ FT" I T AB< 26 ) !"MPM" lTAB<37) I "LB FUEL"! 

1170 PRINT TAB( 50> !"BURN RATE. TIME" 

1180 PRINT 
1190 A» 120 
1200 U-1 

1210 M*33000. 

1220 N ■ 1 6 500 
1230 G».0B| 

1240 Z * I - 8 
1250 L>0 

1260 PRINT L >TAB( 10) l|NT(A))INT< 5280 *( A- I NT (A) > ) I TAB < 2 5) 1 3600 • V! TAB C 3 7) 
1270 PRINT M-N I TAB < 50 > ! 

1280 INPUT K,T 
1290 IF H- N« .00 1 THEN I 400 
1300 IF T« .001 THEN 1260 
1310 S>T 

1320 IF M >« n*S*M THEN 1340 

1330 S»(M-N)/K 

1340 GOSUB 1790 

1350 IF I «. 0 THEN 1650 

1360 IF V <» 0 THEN 1380 

1370 IF J«0 THEN |7l0 

1380 GOSUB 1590 

1390 GOTO 1290 

1400 PRINT "OUT OF FUEL Al”!L!"SEC" 

1410 S>(-V+SOR( V*V*2*A*G) >/G 
1420 V-V*G*S 
1430 L*L*S 
1440 W«3600*V 

1450 PRINT "ON MOON AT"JL!”SEC - IMPACT VELOCI TY"! W!"MPH” 

1460 IF W>U2 THEN 1490 

1470 PRINT "GREAT LANDING 111 (LUCKY)" 

1480 STOP 

1490 IF W» | 0 THEN 1520 
1500 PRINT "GOOD LANDING” 

1510 STOP 

1520 IF W» 60 THEN 1560 

1530 PRINT "CRAFT DAMAGE. YOU ARE STRANDED UNTIL A RESCUE MISSION- 
1540 PRINT "ARRIVES. HOPE YOUR OXYGEN HOLDS OUT." 

1 550 STOP 

1560 PRINT "YOU CRASHED - NO SURVIVORS." 

1570 PRINT "YOU BLASTED A NEW LUNAR CRATER" I W* .277 7l"FT DEEP" 

1580 STOP 
1590 L«L*S 
1600 7«T-S 

1610 M»M-S*K 
1620 A* I 
1630 V* J 
1640 RETURN 

1650 IF S < • 00 5 THEN 1440 

1660 D“ V ♦SOR <V*V*2*A*(G-Z*K/M> ) 

1670 S«2*A/D 

1680 GOSUB 1790 

1690 GOSUB 1590 

1700 GOTO 1650 

1710 W«< l-M*G/( Z*K) >/2 

1720 S»M*V/< Z*K*( W*SQRC W*W.V/Z> ) > ♦ .05 

1730 GOSUB 1590 

1740 IF I «* 0 THEN 1650 

1750 GOSUB 1590 

1760 IF J»0 THEN 1290 

1770 IF V>0 THEN 1710 

1780 GOTO 1290 

1790 Q«S*K/M 

1792 REM •** PATCH TO PREVENT UNDERFLOW 
|794 IF ©>.000001 THEN 1800 
1796 O«0 

1 800 J«V*G»S-Z*©*< 1 ♦«»•( . 5*0* < 1 /3-*0*( .2 5*0/5) ) ) > 

1810 I«A-G*S*S/2-V*S*Z*S*0»( . 5*©*( |/6*Q*< 1/12*0/20) ) ) 

1820 RETURN 
1830 END 



CRASH 


10 H EM ♦ CRASH . A Mop* F 1 1 n 

12 REM • MODIFIED By Ptnm r.c Sl0N 0F LANDER (A 

100 DIM AT ( 7? ) °' Lr S COMPUTER COMPANY I* 18 UlE:D P *°GRAM> 

2 10 PRINT Y ' MENL 0 ^RK, CA 

PRINT "DO YOU WANT I NSTRUpt *«... 

INPUT A f ( | , | J STRUCTIONS <y ts QR 

PRINT 1 

IF AflUJ.'V THEN |B()0 


2 IP) 

2 20 

230 

J>40 

2 50 

300 PR 
305 PR 
310 I 

3 I b PRINT 


320 
32 5 
330 
335 
34ft 
345 
350 
355 
360 
365 
370 
375 
3R0 
385 
390 
395 
400 


415 

420 

42 5 

1000 

1005 

1006 
1007 
1010 
1030 
10 40 
10 42 
1043 
1045 
1047 
1 0 4R 

1049 

1050 
1055 
1060 
1070 
1075 
1080 
1090 
I 100 
1110 
1 120 
I 130 
I I 40 
1 I 45 
1 I 70 
I IBB 
1 190 
1200 
1210 
1290 
1300 
I 302 
1303 
I 305 
1307 


!INT -CONGRATULATIONS! vn„ 

Ei :~ £ :s 10 ** 

••moving' above the surface with tour mode, 

"NEXT ONE SECOND?" OUN1 ° F FUEL 10 BE BURNED DURING THE" 

" J' Y0U BURN ZER0 * Y0UR SPEE <> '"creases due to GRAVITY." 

" YOUR°vELOC| l Tr ,< REMAINS H CONS?ANT." EOUIKED Y ° °'' ERE °" E GRA, 

JSSTuSCSS ?»oSh' I velo?uy B becomes’pos5 

"THERE IS MORE THAN ENOUGH FUEL. BUT BE CAREFUL NOT TO WASTE* 

PrInT -LANDING ON* ill ^QN ?£ ® N ’ HE EAR 'H. OR ON PERSEPB 

PRINT -PE RSEPHONF IS Es ! S0 TRY ™AT FIRST." 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


405 ....... UFAiTiUilMU UN THE MOON I <« metier ^ ^ - — ' I tAJir 

AIB PRINT "PERSEPHONE IS AN UNKNOWN fn 1H/lT FIRST -" 

AIS PRINT "ALL THE INITIAL CONDI 11 ONWurl S ? Y ° U klLL HA ' ,E T0 SP CCIFY 
phi’nt " AND BURN T ° cance ° GRAVITY. I" ' VEL0CI,Y ' -AX, HUH BURN, 

PRINT -GOOD LUCK AND HAPPY LANDINGS!" 

LET X0»V0-0 
PRINT 
PRINT 

^NPUT ”j° CA1,0Ns M OON, EARTH, OR PERSEPHONE"! 


PR I NT 
LET K« 

IF ASM , 
LET K * I 
IF A$[ I 
IF ASM 


I ] *"M" THEN 1060 


THEN 1060 
THEN 4000 


"THAT LOCATION IS NOT RECOGNISED. 


PRINT 
GOTO K 
LET G* 5*2 7 *K 
LET M«3O*60*K 
IF X0 ► 0 THEN 1 |00 
LET X*X0«5004 I 500*K 
LET V0»- 50- 1 00 * K 

PRINT "INITIAL CONDITIONS* STANDARD OR RANDOM"! 
INPUT At 

IF A 1 1 I , I J#"S” THEN 1 |70 
LET X n 500 4 I 500 *K 
LET V*-S0-|00*K 
GOTO 1200 

LET X» I NT (RNDC 0 ) •( |00«K*|00) )« |0«|00 
LET V«- INTCRNO<0)*( I0«K*|0>)*S 
IF V*V>2*(M-G> *X THEN 1180 
LET X0=X 
LET V0 = V 

LET F*INT(SOR(M*C V *2 42 *G*X > / C M- G> >*.|3«.5)*I0 
PRINT 

PRINT "INITIAL HEIGHT: "!X!"FEEV* 

PRINT "INITIAL VELOCITY* " ! V l "FEET /SEC" 

PRINT "TOTAL FUEL SUPPLY* ”|F)"UNITS" 


2 420 
2430 
2440 
2450 
2460 
2500 
2600 
2610 
2620 
2630 
2640 
2650 
2700 
2710 
2720 
2725 
2730 
2735 
2740 
2745 

27 50 
2 7 55 
2760 
2765 
2800 

28 10 
2820 
2825 


LET T8=<V4S0R<V«2-2*A*X> >/G 

IF T8 <s 1 THEN 2600 

LET X»X+V4 A/2 

LET V*V*A 

GOTO 2400 

LET T=T-T9 

LET F=F-B I • T8 

LET T=T*T8 

LET V=V4A*TB 

PRINT T, 0, V, F 

PRINT 

PRINT 

IF V<- ] THEN 2800 

GOTO INKRNDf 0)*S4 1 ) OF 2720,2730,2740,2750,2760 
PRINT "YOU ARE NOW A QUALIFIED ASTRONAUT." 

GOTO 1007 

PRINT "AS GENTLE AS A KITTEN'S PURR ! !“ 

GOTO 1007 

PRINT "A BUTTERFLY COULDN'T HAVE DONE BETTER!” 

GOTO 1007 

PRINT "AS SOFT AS A SNOWFLAKE I" 

GOTO 1007 

PRINT ''MR. SPOCK WOULD BE PROUD OF YOU! I I” 

GOTO 1007 

IF V< - 5 THEN 2900 

GOTO INTCRND<0) »44j ) OF 2820,2830,2840,2850 
PRINT "A BIT ROUGH, BUT YOU ARE STILL IN ONE PIECE!" 
GOTO 1007 


2835 

2840 

2845 

2850 

2855 

2900 

2910 

2920 


1 308 

PRINT "AMOUNT OF BURN 

TO CANCEL GRAVITY* 

1320 

PRINT 


1330 

PRINT 


13 40 

PRINT "TIME", "HEIGHT", 

" VELOC I TY” , "FUEL" , ' 

1350 

PHI NT 


2000 

LET T ■ ~ 1 


2010 

LET T«T4| 


2020 

PRINT T.X,V,F," " ! 


2030 

INPUT B 


P 0 40 

LET B 1 * ABS ( B > 


2050 

IF B 1 <= M THEN 2080 


2060 

PRINT " '* , "MAX BURN IS 

•' ! M ! "BURN ”! 

2070 

GOTO 2030 


2080 

LET T9=T8«2 


2090 

IF B | *0 THEN 2110 



LET T9«F/BI 
LET A=B-G 
LET RaV*V-2*A*X 
IF R<0 THEN 2200 
| F A=0 THEN 2180 
LET T8*-< V4SOR<R) )/A 
GOTO 2200 

IF V > * 0 THEN 2200 
LET T8«-X/V 

IF (TR*0 AND T8 «* II OR T9 <* I THEN 2300 
LET X =X 4 V4 A/2 
LET V=V4A 
LET F*F-8I 

IF X > • 000 I THEN 2010 
LET T-T4) 

GOTO 2630 

IF TR>0 AND T8 < = T9 THEN 2600 
PRINT T4T9,"0UT OF FUEL" 

LET F«BI=0 

LET X»X ♦ V* T9 ♦ A *T9 * 2/2 
LET V*V-A*T9 
2350 LET A* -G 

2360 LET T8=<V4SORC V*V-2*A4X) )/G 

2370 IF T8<l-T9 THEN 2500 

2380 LET X»X4VCl-T9>*A.CI-T9>*2/2 
2398 LET V»V4A»M-T9> 

2400 LET T«T4| 

2410 PRINT T.X.V 


2100 
211 0 
2 120 
2 1 40 
2 150 
2160 
2170 
2 I B0 
2190 
2200 
22 10 
222 0 
2230 
2235 
2240 
2245 
2300 
23 10 
2320 
2330 
2340 
8350 


2825 GOTO 1007 

2830 PRINT "IF YOU HAD BEEN DRIVING A 1970 LTD, THAT WOULD HAVE COST 
2R3I PRINT " YOU SS00!" 

GOTO 1007 

PRINT "ANY EASTER AND YOU WOULD HAVE BOUNCED!” 

GOTO 1007 

PRINT "YOU HAD BETTER CHECK YOU LANDING GEAR!!” 

GOTO 1007 

IE V<- 1 0 THEN 3000 

GOTO INT<RND(0) *541 ) OF 2920,2930,2940,2950,2960 
PRINT "IS YOUR MEDICAL INSURANCE PAID UP??" 

GOTO 1007 

PRINT "YOU GOT DOWN, BUT YOU WILL NEVER BE AN ASTRONAUT'” 

GOTO 1007 

PRINT "NEIL ARMSTRONG DID IT THE FIRST TIME' I” 

GOTO 1007 

PRINT "THE BEST LAID SCHEMES OF NICE AND MEN,” 

PRINT " OFT' GO ASTRAY." 

GOTO 1007 

PRINT "HAVE YOU EVER THOUGHT OF A DIFFERENT LINE OF WORK??" 
GOTO 1007 

GOTO INT(RND(0) *34] ) OF 30 1 0 , 302 0 , 303e 
PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED.” 

GOTO 1007 

PRINT "YOU JUST CREAMED A 29 MEGABUCK LANDER*” 

GOTO 1007 

Go{o , | 0O7 EN ’ T r<>U GLA ° TH,S ‘ S °" LY “ C0MPUTER SIMULATION! I" 

£“„**' SET UP ,NI,,A '- CONDI TONS FOR •PERSEPHONE- 

PRINT "INITIAL HEIGHT f FEET>”! 

INPUT X 

USSl 7 N,T,AL VEL0CIYF < PEE T'SEC, < usually negative,-, 

PRINT "TOTAL FUEL SUPPLY (UNITS)”* 

INPUT F 

PRINT "MAXIMUM BURN ( UNI TS/5EC ) ” * 

INPUT M 

PRINT --AMOUNT OF BURN TO CANCEL GRAVITY < UN, TS/SEC," I 

GOTO 1320 
END 


2935 

2940 

2945 

2950 

2951 
2955 
2960 
2965 
3000 
3010 
3015 
3020 
3025 
3030 
3035 
4000 
40 10 
4020 
4030 
404Q 
4050 
4060 
4070 
4080 
4090 
4100 
41 10 
4120 
9999 


151 


ZEROS 


10 

HO 

W*> 

30 

40 

60 

70 

no 

VO 
100 
HO 
1R0 
1.10 
140 
l NO 
160 
170 
l HO 
I VO 
POO 
.'()■.• 
P04 
P06 
pom 
P lo 
P* 0 
230 
240 
UNO 
260 


hJ" **"0* "ATM 

M •♦♦♦•MARCH 

IMM M. MOl) I Mil) *si . , , 4Y1 C!**"* HKS|r * K * ’’* ROVE***** 

■UN Ati|01,xt( 111) , M f ;*1»1 T U * ,K0HLK,S CONFUTE n COMPANY, MENLO PARE 

T-ftNN* 1 “ 3 4 * 6 7 * ^ ■ 0 1 l I V! 1 3 1 4 1 5 I 61 7 | tt" 

PRINT "HUl.EH'M 
INPUT AV 

If AN H « 1 TllKN 9 1 0 

5 T”" TY^*’" 

PRINT TAR < I S ) j"o ooo 0 0 0 0“ 

PRINT 1 TAMK n,, <NA. vt CHOOSE ONE OF THE NUMBERS AND 1 ’* 

PM1WT ..IS! A BETWEEN THE T Vo 0*5 BELOW THAT NUMBER. " 

AN 0 HAS PH.M tinKU FOR A BRIDGE, IT CAN * T HE USED AGB 

. 5 21 r.?! ,NnTANa ' ,F ™U CHOOSE thf. number 3," 

HUNT i TAB C 14 ) I'* | 8 .1 A S f, »/•• 

PRINT 0 ° 0 0 0 0 0?3**)TAH< ** 

PUNT THEN 1 CAN’T CHOOSE NUMBERS 9 OR 4." 

thy. winner is the last person who can draw a bridge." 

•P*S. Ik YOU WANT ME TO t»0 F1HST, PRESS THE •RETURN* KEY" 

’FOR YOUR FIRST MOVE." 


PR l NT 
PR I NT 
PRINT 
PRINT 
PRINT 
N-7 
MAT M-7.EH 
GO Situ WO 
OOSUH 1080 
l-“l • 7 | 4*S 
C.OTO 330 


HERF. WE GO 


REVERSE 


100 
I 10 
110 
I 40 

1 50 
160 
170 
100 
190 
200 
210 
2! 5 
220 
230 
235 

2 40 
245 
250 
255 
280 
290 
300 
310 
320 
330 
340 

3 50 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
600 
610 
620 
630 
640 
650 
660 
670 
700 
710 
720 
730 

7 40 
750 
760 
770 
7B0 
790 
800 
810 
820 
830 

8 40 
850 
860 
870 
880 
89i 
90i 
91 
99 


REM REVERSE - A GAME OF SHILL 

REM • *♦ PEOPLE'S COMPUTER COMPANY. MENLO PARK CA 
DIM A (20 ) 

REM • ♦♦ N ■ NUMBER OF NUMBERS (1 THRU N) 

LET N«9 

PRINT "DO YOU WANT THE RULES C|*YES 0»NO)"I 
INPUT A 

IF A • 0 THEN 210 
GOSUB 710 

REM • •• MAKE A RANDOM LIST Ad) TO A<N> 

FOR l»l TO N 
All I-| 

NEXT I 

FOR !«N TO 2 STEP -I 
K» I NT ( I *KND( 0 > ) 4 l 
T* At I ) 

At I ) - A ( K J 
AtK 1»T 
NEXT T 

REM •** PRINT ORIGINAL LIST AND START GAME 
PRINT 

PRINT "HERE WE GO ... THE LIST ISi" 

LET T« 0 
GOSUH 610 

PRINT "HOW MANY SHALL I REVERSE"! 

INPUT R 

IF R* 0 THEN 520 
IF H <« N THEN 390 

PRINT "OOPS! TOO MANY - I CAN REVERSE AT MOST"lN 
GOTO 330 
LET 1»M 

REM • REVERSE R NUMBERS AND PRINT NEW LIST 
FOR K«1 TO I NT ( R/2 ) 

LET Z* A l K ) 

LET AtK)=A(R-K« 1 ) 

LET AtR-K^l 3-Z 
NEXT K 
GOSUH 610 

REM ♦ ♦♦ CHECK FOR A WIN 
FOR K* ) TO N 
IF A t K 5 <> K THEN 330 
NEXT K 

PRINT "YOU WON IN" JTT'MOVES! ! I" 

PRINT 

PRINT "AGAIN d»YES 0*NO)"I 
INPUT A 

IF A <> 0 THEN 210 
STOP 

REM *•* SUBROUTINE •** PRINT LIST A< I ) TO A<N> 

PRINT 

FOR K-1 TO N 
PRINT A t K J ! 

NEXT K 
PRINT 
PRINT 
RETURN 

REM ♦ ♦♦ SUBROUTINE • *• PRINT THE RULES 
PRINT 

THIS IS THE GAME OF 'REVERSE*. TO WIN, ALL YOU HAVE" 

TO DO IS ARRANGE THE LIST OF NUMBERS (I THROUGH" !N !")" 
IN NUMERICAL OROEH FROM LEFT TO RIGHT. TO MOVE, YOU" 
TELL ME HOW MANY NUMBERS (COUNTING FROM THE LEFT) TO" 
REVERSE. FOR EXAMPLE, IF THE CURRENT LIST IS!** 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


Ml 


"23451 6789" 

"AND YOU REVERSE 4, THE RESULT WILL BE!" 
"5432 16789" 

■NOW, IF YOU REVERSE 5, YOU WINf" 

*12 3 4 5 6 7 8 9" 

•NO DOUBT YOU WILL LIKE THIS GAME OF SKILL. 
"IF YOU WANT TO QUIT, REVERSE 0 (ZERO).** 


270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

4 70 
480 
490 
500 
510 
520 
530 
540 
550 
560 

5 70 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
7 70 
780 
790 
800 
810 
820 
830 
840 
850 
860 
690 
900 
910 
920 
930 
94 0 
94 5 
950 
955 
960 
965 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
10 70 
1080 
1090 
I too 

I I 10 
1120 
1130 
1 140 
I 150 
1160 
1 I 70 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1460 


1- 1NTC CN*I >/2> 

M t 1 ) = 2 

GOSUB 1320 
GOSUB 1160 
IF F THEN 820 
PRINT 

PRINT "?"1 
ENTER T.C.l 
IF I «- | .7145 THEN 270 
I 1-1 

IF I<| OR 1 > N OR 1*1 NT Cl) THEN 1410 
GOSUB 1320 
IF F THEN 1430 
GOSUB 1080 

2- 11 
Mt 11=1 
GOSUB I 140 

IF F THEN 840 
I =K«F-0 
MAT A-ZER 
I * I -M 

IF I >N THEN 590 
IF PtI)-0 THEN 470 
K-KH 

A(K)=AlK)4| 

F-F MAX AtK) 

IF F# At K) THEN 550 
H-K 
I ° 1 ♦ I 

IF I >N THEN 590 
IF Ptl)»0 THEN 470 
GOTO 510 

IF K/2- I NT ( K/2 > THEN 680 
1-K-O 
1-1-1 

IF Ptn-0 THEN 610 

K-K4J 

IF H*K THEN 750 

1 - 1 ♦ 1 

IF Ptn-0 THEN 610 
GOTO 650 

IF F# 3 AND F#5 THEN 710 

F-F-2 

GOTO 600 

FOR 1=1 TO N 

IF Pt 1 1 * 0 THEN 740 

NEXT I 

F = 2 

1-1*1 NT < IF- I >/2> 

GOSUB 1320 
MtI)-2 
GOSUB I 160 
IF F THEN 820 
PRINT 
GOTO 330 
PRINT "1 WIN" 

GOTO 900 
GOSUB 1160 
PRINT "YOU WIN" 

GOTO 900 

PRINT "YOU LOSE" 

PRINT 

PRINT "AGAIN (YES OR N0)"J 
INPUT AS 

IF Aitl,n»»r THEN 1460 
PRINT "HOW MANY NUMBERS"; 

INPUT N 
N-INT <N> 

IF (N > = 1) AND < N < = Ift) THEN 220 

PRINT "I CAN ONLY PLAY WITH BOARDS OF 1 TO 1 8 NUMBERS" 
GOTO 940 
FOR I- I TO N 
PC I 3 - I 
NEXT 1 

PRINT **";taB( 13); 

FOR 1=1 TO N 

PRINT ** •*1X512*14-1 ,2*142); 

NEXT I 

PRINT 

RETURN 

PRINT TAB< II); 

FOR 1=1 TO N41 
PRINT " 0"; 

NEXT I 
PRINT *•••) 

RETURN 

PRINT "** 1 T AB <3*l + 10>;** "; 

GOTO 1250 

print ••••; 

FOR 1=1 TO N 

IF MCI ) = 0 THEN 1230 

PRINT TABO-I410); 

FOR J=l TO 4 
PRINT. XStM tl),M Cl) )) 

NEXT J 
NEXT 1 
PRINT "**; 

F = J = 0 

FOR 1=1 TO N 

U=j4p( J ) 

NEXT 1 

IF J THEN 1310 
F = I 

RETURN 

F-0 

FOR J=l TO N 

IF l = Pl»J) THEN 1370 

nf.xt J 

GOTO 1300 

P( J)=Pt J4l j -0 

IF vl=l THEN 1400 

Pt J-l )*0 

RETURN 

PRINT “USE THE BOARD NUMBERS" 

GOTO 330 

PRINT "ILLEGAL MOVE** 

GOTO 890 
END 


TAXMAN 



104 

106 

108 

ne 

120 

122 

124 

126 

128 

130 

132 

134 

136 

138 

140 

142 

144 

146 

148 

496 

497 

498 

see 
S02 
50 4 
506 
508 
510 
512 
514 
516 
518 
520 
522 
524 
526 
528 
530 
532 
534 
536 
538 
540 
542 
544 
546 
548 
550 
552 

566 

567 

568 
570 
572 
574 
576 
578 
580 
582 
58 4 
586 
588 

596 

597 

598 
600 
602 

60 4 
606 
608 
610 
612 

61 4 
616 

646 

647 

648 

649 

650 
652 
654 
656 
658 
660 
662 
664 
666 
668 
670 
672 
674 
676 
678 
680 
682 
684 
686 
688 
690 

696 

697 

698 
700 
702 
704 
706 
708 
710 

746 

747 
7 48 
750 


print -hi. ,» m ^ 

PRINT -DO YOU wI 25 Ta *nan.- 
INPUT R U U *NT the Req ULat 

IP R*l then QULat 


passed t«, 

3 Cn ‘NP'JTEP 


COLTER 

IONS r ,, Vpp 

' 1 VES 'B"NO>~, 


I 02a on 


Mave factors 


Try again.- 


IP R-i THEN 900 
KfcM INI Tr». 

G0SU8 B00 IEa TI0n 

REN *•« TUP ui<. 

G0SU8 500 UMAN Takes a numb 

SSu Vhl™'"* ^ huh*,. s a " 

ES» , ;.r ,MT n EW list Taxma " ,s «»« 

REM *•* CHECw , r. 

GOSUB 6 SB F *** NUM BE1 , S 

>86 t,ll 
GOSUB ;„S ,ND T « E -.BNBB 
REM «*• AGAIN? 

GOTO 750 
REM 

r“ *** IHE HUMAN MOVES 
PRINT 
PRINT 

PRINT -YOU TAKE”. 

INPUT K 1 

LET K*INT<K> 

IF K <= 0 THEN ? 

IP K <= N THEN sfS 
PRINT KJ-IS NOT In tur 
GOTO 502 ,N Tme LIST 

IF L( K 1 =0 THEN 
REM find all Tmc r 
IF K»1 THEN SJ0 E FACT »"S 
PRINT -THERE ARE Mn ~ 

PRINT -ARE YOU TRY?wr ^ T0RS O^IKi-fqo mp 

GOTO S82 TRYING TO SHOR T-change^Tmc* t 

LET ( 1=0 GE T «E Taxman c 

FOR lal To K /2 

IP Lt I ] *0 THEN S44 

IP K <v I4INTCK/IJ then 

LET M=M ♦ | THEN 544 

LET TCM3»I 

LET L C I )b0 

NEXT I 

REM CHECK WHETHER THERF Uco 

IF M = 0 THEN S24 ™ ERE WERE ANY FACTORS 

LET LCK3*0 

RETURN 

REM 

REM COMPUTE THE MLh-am.o 

REM human S and Taxman *s totals 

LET Y*YoK 

PRINT -YOUR TOTAL IS-.Y 

PRINT "I GET”. * Y 

FOR I*l TO M 

PRINT TI I ) I 

LET Z=Z*TCI J 

NEXT I 

PRINT 

PRINT -MY TOTAL IS-JZ 

RETURN 

REM 

REM •** PRINT THE NEW LIST 

REM 

PRINT 

PRINT -NEW LIST!”. 

LET M = 0 
FOR 1=1 TO N 
IF Ltl J = 0 THEN 614 
PRINT U 
LET H=1 
NEXT I 
RETURN 
REM 

REM ** 

REM 

REM CHECK IF THE LIST IS EMPTY 
IF M=0 THEN 690 
FOR I =N TO 4 STEP -1 
FOR J*2 TO 1/2 
IF LCJJ=0 THEN 664 
IF I «» J*I NT C I / J> THEN 664 
LET M*1 
RETURN 
NEXT J 
NEXT I 
REM THE 
PRINT 
PRINT -I GET -I 
FOR I* l TO N 
IF LCI J=0 THEN 682 
PRINT II 
LET Z*Z*I 
NEXT I 

PRINT - BECAUSE NO FACTORS OF ANY NiAlBER ARE LEFT.* 

PRINT -MY TOTAL IS**lZ 

LET M*0 

RETURN 

REM 

REM ••• FIND THE WINNER 
REM 
PRINT 

IF Z*Y THEN 708 

PRINT —YOU** 1 Y |— TAXMAN- »Z »" 

RETURN 

print —Taxman— i zi— YOU-iY*- 

RETURN 
REM 

REM ••• AGAIN? 

REM 
PRINT 


CHECK IF ANY NUMBERS STILL HAVE FACTORS 


TAXMAN GETS THE REST OF THE NUMBERS 


752 
754 
7 56 
7 58 
760 

796 

797 

798 
600 
802 
804 
806 
808 
810 
812 
814 
816 
818 
820 
822 
82 4 
82 6 
828 
830 
832 
834 
836 
838 

840 
842 
844 
896 
89 7 
898 

900 

901 

902 
904 
906 
908 
910 
912 
914 
916 
918 
920 
922 
92 4 
926 
928 
930 
932 
934 
936 
938 
9 40 
942 
944 
9 46 
9 48 
950 
999 


YOU WIN ! TI- 
THE TAXMAN WINS. 


REGULATIONS ALLOW A MAXIMUM OF 50 NUMBERS. 


PRINT 

INPUT r AGAIN < l*YES,0»NO)-| 

IF R=0 THEN 999 
GOTO 122 
REM 

pem ... initialization 

PRINT 

input N H0W MANY NUMBERS 00 YOU W ANT IN THE LIST*. 

LET N* I NT< N> 

IF N «= 0 then 9?9 
IF N <n 50 then 816 

print -at this time, 

6070 800 
Dim LIS0),TC10J 
let Y*0 

LET Z= 0 
PRINT 

PRINT -THE LIST ISi”i 

POR 1*1 to N 

PRINT I i 

LET Ltl ) * t 

NEXT I 

IF N> | THEN 844 
PRINT 

PRINT GENER0US OP y 0U TO FORFEI T ALL TO THE TAXMAN. - 

GOTO ?sJ Y0U 0 ™ E TAXMAN WINS.— 

RETURN 

REM 

REM *** INSTRUCTIONS 

REM 

PRINT 

PRINT " Y0U TRY T ° BEAT ™ E TAXMAN *~ 

PRINT A L1ST ° F WH0LE NUM8ERS IN NIHERICAL- 

PR1NT ORDER (YOU DECIDE HOW MANY).- 
“R I NT 

HIP. U I AKE A NOHBER FROM THE LIST — THE TAXMAN GETS** 

PR.mt RACT0RS 0F YOUR NUMBER THAT ARE STILL LEFT.- 

prISJ 4S5S ™Tui" ALL ITS FACT0RS ARE THE " 0ELETE0 " 

PRINT 

PRINT «!2». E !II P 1‘^t SU J P0SE Y0U “ ANT 10 NUMBER * TO BE IN THE LIST. 
PRINT T 1 T 01-0 BE * 1 2 3 A 5 6 7 8 9 10- 

ppImJ »iL Y °L T0 ° H *' THE TAXMAN WOULD SET I. 2# AND 4" 

PRINT ° ™ E NEW L,ST “° ULD BE: 3 5 6 7 9 10- 

«I HE TAXMAN MUST SET SOMETHING EVERY TIME SO YOU CAN- 
PRINT ° NLY PICK A NUMBER THAT HAS FACTORS LEFT.” 

pp!HI ”iHc N T N S NE ° F ™ E REMA I NIN 6 NUMBERS HAS ANY F AC TORS* — 

PRINT -THE TAXMAN GETS THEMM- 
PRINT 

PRINT -YOUR SCORE IS THE SUM OF THE NUMBERS YOU TAKE.” 

PR I NT -IF YOU WANT TO GIVE UP* TAKE 0.- 
PRINT "GOOD LUCK!” 

GOTO 122 
END 
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Pleas* photocopy «m» order term It 
you do not want to cttl the peg* 
oft You witl automatically receive 
a now order lorm when you receive 
youi parte. 


HEWLETT ^ PACKARD 

CUSTOMER SERVICE CENTER 
Direct Mail 

Parts and Supplies Order Form 


SHIP TO 
NAME _ 


COMPANY 
STREET _ 
CITY 


STATE 


CUSTOMER 
REFERENCE ■ 

TAXABLE*?. 

ZIP CODE 


Item 

Me. 

Check 

Digit 

Part Qty. 

No. 

Description 

List Price Extended 

Each Total 

1 

7 

3&OCO- jQoS 

U)hA7 to vo hfTLZ You bn fkrupJ 
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* 


Special Instructions 


*Tax is verified bv computer according to your ZIP CODE. If no sales tax is 

added, your state exemption number must be provided: P- 

If not. your order may have to be returned. 

Check or Money Order, made payable to Hewlett Packard 
Company, must accompany order. 

When completed, please mail this form with payment to: 

HEWLETT-PACKARD COMPANY 

Mail Order Department Phone; (415) 968-9200 

P.O. Drawer ^20 
Mountain View. CA 94043 


Your State & Local 
Sales Taxes* 


Handling Charge 

TOTAL 


50 


Most orders are shipped within 24 hours of receipt Shipments to California. Oregon and Washington will be made via UPS. Others 
shipments will be sent Air Parcel Post, with the exception that shipments over 25 pounds will be made via true k. No Direct Mail 

Order can be shipped ou tstde the U. S. 


HP ONLY 


ORDER INFORMATION 

PCC ONLY 


TAPES price 


PEOPLE'S COMPUTER COMPANY and 
HEWLETT PACKARD are offering lor sale: 


Number Guessing Games 
Number 
Abase 
Trap 
Stars 
Clocks 
Bagels 
Quadgt 
Button 


$12 

2 

3 

2 

2 

3 

2 

3 

2 


Word Games 

Letter 
Abaget 
Hangmn 
M adlib 
Word 

"Nimlike" Games 
23Mtch 
Batnum 
Nim 
Chomp 
Zot 

Hide-n-Seek in 2D 
Hurkle 
Mugwmp 
Snark 

Pattern Games 
Dangle 
Sunsgn 
Biosin 
Mandai 
Life 
Amaze 

Board Games 


Qubic5 5 

Gomoku 4 

Teaser 3 

Rover 5 

Welcome to the Caves S 9 

Caves 1 5 

Wumpus 4 

Caves2 5 

Business & Social Science Simulations $22 
Hamrbi 3 

King 5 

C»vil2 7 

Market 5 

Stock 5 

Policy 4 

Polut 4 

Science Fiction Games $12 

Trader 10 

Sttrl 9 

Last Chapter $10 

Crash 4 

Lunar 3 

Revers 2 

Zeros 3 

Taxman 3 


$10 

2 

3 

3 

6 

2 

$11 

2 

3 

4 
3 

5 

$ 4 

2 

2 

2 

$11 

2 

3 

3 

3 

3 

3 

$11 


ffcrday- Birthday Probability 36653 A 

B!)«ck: Gam* of Twonty-on* 36103A 

Cannon : HP 7200A Gam* Otmo for T/S BASIC 361 1 0A 

Chao* Pursuit o# a large* 36683 A 

Drag: Simulates a O rag Rac* 36601B 

Ftbl. Football 36 1 8 1 A 

Golf A Golf Game 361 02A 

Gmprx : Gran Pnx Racing Gam* 36686A 

K*no S25.000 K*no Gam* 36244A 

Lander: Rocket Landing V*h*ci* 36684 A 

Route* Roulette 36650 A 

Slot: Simulates a Slot Machine 36107A 


Ail tapes are available from HP for $10.00 each. 


Copies of this book (PCC or HP) 

Magnetic tape of all the programs (HP) 

Paper tapes of individual programs (PCC or HP) 


PCC 

HP 


Copies are available at the cover price. Paper 
tapes can be ordered individually or by chapter. 
See our order form for details. 


Copies of this book are also available at the 
cover price. When ordering, use the order no. 
HP36 000-91 005. A magnetic tape with alt 
the games on it (2000F dump tape) is avail- 
able for S25. Order no. HP3600G- 10005 
for 800 BPI or HP36000- 1 1005 for 1600 

BPI. Contact your local HP sales office for 

ordering information or use the direct mail 
order form on opposite page for prompt 
shipments within the U.S. 

See the Index to HP 2000 Contributed Library 
(HP5952-4369) for a complete list of library 
programs in all major categories. Complimen- 
tary copies of the Index are available from 
your local HP sales office. 


ORDER FORM PCC 


Name 

Address 


ZIP 


WHAT TO DO AFTER YOU HIT RETURN or 

PCC's First Book of Computer Gamers © 6.95 S 

TAPES — You may order by chapter (about 13 
off) or each tape individually. Please list tapes 

by name and enter total. $ 

Total 


Postage & Handling 

SO. 50 orders under $10 
$1.00 orders over $10 
TAX (California residents please add 
6% sales tax) 

TOTAL 


ORDER DIRECT - (415) 326-4444 THANK YOU 

GAMES BOOK 
c/o People's Computer Center 
1919 Menalto Avenue 
Menlo Park. California 94025 


S_ 

Postage 

S 

Tax 

S 
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tigSjjB PCC is published 5 times ( and sometimes more ) during 
the school year. Subscriptions begin with the first issue 
in the fall. 



Single subscriptions are S5 for 5 issues. (S6 outside 
U.S.A. - surface mail; SI 2 - air mail) 



If you are an elementary or secondary school student you 
can subscribe to PCC for $3.00. Send cash, cneck, or money 
order. No purchase orders. Use your HOME address! 

Please send us some evidence that you are a student. 



Group subscriptions ( all mailed to the same address.) 
2 - 9 S4.00 each 

10-99 $3.50 each 

100 or more S3.00 each 



Send check or money order to: 

PO 0O* 310 • MENU) PARK * WO’ZS 


I V4ME — 
ADDRESS 


□ REGULAR SUBSCRIPTION 
p STUDENTT SUBSCRIPTION 

group SUBSCRIPTION 


Z-IP 

BACK ISSUES'. ANY MIX 

CrsrAME loua *ix; 

PCC PRA 6 ON SHIRT 
CBY nancy HERtFRT) 



HP SALES & SERVICE OFFICES 


UNITED STATES 



CANADA 



CENTRAL AND SOUTH AMERICA 



EUROPE 






Tnw, tt » to « 






It Ina Xml 
a 


nut «« r 










AFRICA. ASIA, AUSTRALIA 




ERRORS IN CONTRI BUTED SOFTWARE 

Contributed software is checked by HP personnel, however, 
it is impractical to test programs under all circumstances. If 
you do encounter errors, please report them to the HP Con- 
tributed Library’ on tbe Error Report forms supplied with 
library Handbooks and Catalogs. 

The Hewlett Packard Compony makes no warranty, 
expressed or implied and assumes no responsibility 
in connection with the program material listed 
hereon. 

NEW CONTRIBUTIONS 

New contributed programs are welcome for consideration as 
entries to the library - In screening programs, particular em 
phasis is placed on submittals of widespread usefulness 

If you have a program to share with other HP users, please 
fill out the appropriate documentation form and submit 
it, along with software and listing, to Hewlett Packard 
Company, HP 2000 Contributed Library, 11000 Wolfe 
Road, Cupertino, California 93014. 
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WHY GAMES AT ALL? 


;Game$ encourage imaginative and constructive responses. The results of games are unimportant - 
we take risks, tolerate unpatfainty, and proceed with less-than-complete understandings. Our 
abtlitie&to react creatively to new and unexpected situations are constantly changing. We develop 
our decision-making capabilities and problem-solving skills. Games are fun) 


WHY COMPUTER GAMES? 


A ^computer waits patiently while we experiment with different lines of thought. It's available 
to play any game we want, as many times as we'd like. Games are fun) -x"'" * « - 

whyplay these games without a computer? 

Why not! Most of these gaihes can be played without a computer. 

When we play these games without a computer, one of us is the computer. The "computer" has 
to be "programmed" for each game; it processes infoiyjation and always responds logically. Being 
the computer enable^ us to see the game frorn^ anothec^perspective and better understand its 
structure. Modifying .the^ames and trying newyafciations is eas^when one qf us is the computer; 
how to actually Write a computer program for die games is clearer, mines are fun! 

WHY COMPUTER GAMES? - continued ^ H jgjk 


X A simulaUofi is a model of a real-life situation. The computer does the complicated bookkeeping - 
\ou create the initial conditions, manipulate the parameters, and analyze the results. The effects 
of each parameter can be isbl^t&d; the simulation can be repeated as often as you want. Games 


ALL? — continued 


Competition is one relationship among players. We can transforn 
into a cooperative fiv^-player game; instead of always paying one 
'^ath ^ide throughoi^the game. 


•repetitive two-player game 
a person alternates playing 


imfes can introduce new ideas. Games are opeivended, multi-purposed, and can be selected to 


Games are fun! 


HEWLETT PACKARD 


PEOPLE'S COMPUTER 
CQMB4NY 


Part No. HP 36000-91005 
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